Neath pig Sanna pena TOT | nea a a pa a A ae Tel See 


EUNCTIONALCONTROLLER  —=>sEP-DZRGK-B-DL-A—- NOV.1976 
MD-11-DZR6K-B COPYRIGHT © 1976 


an ae HERE GT a RE ee 2 ADE TOSSA 








BOl 





TOENTIFICATION 


PRODUCT CODE: MAINDEC-11-D2RbK-B-3 


PRODUCT NAME: RKE1L1 FUNCTIONAL CONTROLLER 
DIAGNOSTIC 


} 

| 

DATE: AUGUST, 1976 

| MAINTAINER: DIAGNOSTIC GROUP 
| AUTHOR: MARV TEGROTENHUIS 
| 

, 

| 

| prs 


pis: INFORMATION IN THIS DOCUMENT iB SUGIECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT CONS TRUED RATION AOELTES. DIGITAL EQUIPMENT 

CORPORATION. DIGITAL EQUIPHENT CORPORATION 6 S TY 
ANY ERRORS THAT MAY APPEAR IN TH 


FOR 
| THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE 
AND. MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH 


creat owt CORPORATION ASSUMES NO RESPONSIBIL 
I 


ILITY FOR THE USE OR 
ia TS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION 









SEG C002 


COl 


a ee mem em mm me me mm me nn a i a ee 


TABLE OF CONTENTS 


INARY PROGRAMS 
OPERATING PROCEDURE 
PROCEDURE 
ITCH REGIS 
ITCH REGI 
SS 
TIME 
PROGRAN DESCRIPTION 
ERROR REPORTING 
SUBROUTINES 


ABSTRACT 
QUIREMENTS 
IM 


Q a “ be O-UmMTino 
. * e+e @ @ @ @ 
= MUNN MMMMMMM 


4.0 
§.0 
6.0 


~ 
- Oo 


ABSTRACT 

THE RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC (OZR6K) IS A SERIES 

OF TESTS THAT COMPLETES THE TESTING. RK611/RKOb 

DRI Tf Dore RE PRE TES T th ING OF rare 

Proukan RE it a RIE HOE 1 1 TO TEST THOSE ARE 
A DISKLESS 


c. RUNN 
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ness BLLER Op OF ‘i VE THAT COULD NOT 
Generel ge CON PRON” IN A DIAGNOSTIC 
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THE BUG. DIAGNOSTT 0 poe. C MODE AND ore 
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CAUTION 
THIS PROGRAM SHOULD BE HALTED ONLY A OF PASS. 
IS HALTED AT ANY OTHER Pol THE POSSIBILIT 


PROGRAM Y EX 
THAT THE CARTRIDGE FORMAT WILL BE INCORRECT, THE CYLINDER 
AOORESS IN THE DRIVE MAY BE INVALID, OR THE ORIVE MAY NO 


REQUIREMENTS 

HARDWARE REQUIREMENTS 
POP-11 sysTes (16K MEMORY) 
CONSOLE TERN 


THE RK611 DISKLESS CONTROLLER DIAGNOSTIC (ALL PARTS) AND THE 
UNTER RKO& DRIVE DIAGNOSTIC (ALL PARTS) SHOULD HAVE RUN 
SUCCESSFULLY. 
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OPERATING PROCEDURE 
LOADING PROCEDURE 


THE PROGRAN CAN BE LOADED FROM BINARY TAPE USING THE ABSOLUTE 
LORDER OR FROM XXDP MEDIA SUPPORTED BY XXOP. 


IT CAN BE LOADED AND RUN UNDER APT OR ACT AND IT CAN BE 
CHAINED BY XXDP. 


STARTUP PROCEDURE 


he PROGRAN START rg thd TS 20018). THIS stat WILL 
OMATICALLY SIZE THE SYSTEM UNLESS RUNNING UNDER an 


S THE ST RNDARD UNTEYS SS, _VECTOR PADORESS 
AND BUS PRIORITY LEVEL (177440 ND 4 RESPECTIVELY). IF 
STARTED AT 200 AND ube MEDIA” (PROGRAM LOADED FROM 


RKO6) DRIVE O IS NOT SED. 
LOCATION 204(8) IS THE PROGRAM RESTART. 


teenage 21418) I THE PA IZATION START LOCATION. THE 
TO IDENTIFY THE EY THe Bus ADDRESS, VECTOR 
Bus PRIORITY, IF THE HAS LOADED FROM 
Barve Rite, he ore 0 SO PLACE eimai Sent Orr a Ho TO BE CARTRIDGE. On 
LOCATION 2208) IS THE PHASE LOOP CLOCK ADJUSTMENT 
START. PROGRAM F Ret FANS err THREE E TESTS BND THEN 
ibor IN vo Tie Rosin UNTIL THE PROCE PROG TED. 


Se PPS, 55a WOM SE AT, TP 
DRIVE IS NOT TESTED. 
CONSOLE SWITCH REGISTER 


THE CONSOLE aoe REGISTER IS USED TO PROVIDE PROGRAM CONTROL 
AS DESCRIBED BELOW 


4 ees Feo oor 
SU10 - = £06 


EXECUTING A SPECIFIC yesT | mT 7 USED WITH CAUTION. SOME 
ier REQUIRE OTHERS Tae FORMAT THE PACK IN 


s 
yea 1 MANNER OR wire petir ep TESTS THAT REQUIRE 
TO BE RUN INDICATE THIS RE test SCRIPTION. IT IS 
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SUGGESTED THAT THE PROGRAM BSE RUN IN THE DEFAULT SEQUENCE THE 
FIRST TIME AFTER IT HAS BEEN LOADED. 


Ss TEBE SOPtEAnthes “uit Belves Bae ON The OATVE us FOR 


BEFORE ANY TEST ag: QUENT TO’ ae THIS TEST ADS The 
BAD SECTOR Fits a0 BUILDS TABLES USED ‘eg 
FOLLOWING TESTS. THESE TESTS, HAVING BEEN RUN once 
NEED NOT BE RUN AGAIN IF A DIFFERENT TEST IS SELECTED. 


3.4 *SOFTWARE’ SWITCH REGISTER 


IF THE PROGRAM IS ine ee oe PROCESSOR. (I. 

AN 11 OR 11734) _THE DETERMINE 
SWITCH REGISTER IS NOT RESENT AND WILL 

* SOF TWARE’ ot, Bree cH a THE SETTINGS OF THE *SOFTWARE 


ef 


REGISTER IMAGE MUST PAO INES anor aay 
REQUIRED. *RUBOUT’ AND ’ U* FUNCTIONS MAY BE USED TO 


CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


BEF oh iy IF tre oecaan eae 


"UP’ POSITION ITCH REGISTER 
} REGISTER AND 


3.5 UNIBUS <sehe 


| RR TR ERE OS os ae My 





APPROPRIATE ybOeATIONS. rte FOLLOWING TAGS AND 
LOCATIONS Fave BEEN BEEN USED 

KW1ll]L TAG LOCATION 

UNIBUS ADDRESS KWLADD 16 

| mnt ADDRESS KWLVEC 1676 

UNIBUS ADDRESS 

MMCSRI 1700 

BANK 1 MNCSRe 1702 

| VECTOR ADDRESS MMVEC 1704 


| 3.6 EXECUTION TIME 
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THE FIRST PASS OF THE PROGRAM FOR ONE DRIVE IS APPROXIMATELY 
SO SECONDS AND EACH SUBSEQUENT PASS IS APPROXIMATELY 6 MINUTES 


THE EXECUTION TIME FOR MULTIPLE DRIVES IS THE PRODUCT OF THE 
NUNBER OF DRIVES TIMES Se SECONDS FOR THE FIRST PASS. FOR 

is IS THE PRODUCT OF & MINUTES 50 
SECONDS TIMES NUMBER OF DRIVES PLUS 2S SECONDS FOR EACH 
DRIVE AFTER THE FIRST. 


PROGRAM DESCRIPTION 
Te PoLLOMING TEST SEQUENCE IS EXECUTED ASSUMING TWO OR MORE 
FIRST PASS - FIRST DRIVE: 
ALL TESTS UP TO THE MULTI-DRIVE OPERATIONS ARE PERFORMED ONCE. 
REMAINING paives: 
STATUS vac VALID 2 Fonte. MULTI-DRIVE OPERATIONS ARE 
Ve. 


THEN TRIE vee GEERAT IONS ARE PERFORMED ONCE ON EACH 
COMBINATION OF DRIVES 


ge Rg Fe ¥: + 
IS REPEATED EXCEPT - FOR TEST 


THE SAME SEQUENCE OF 
ITERATIONS WHICH ARE SPECIFIC FOR EACH TEST. 
SE AEE Ee EE ee EEE 
#*BASIC INTERFACE AND OPTION TESTS 
ee SE AEE SAE EE ER 


TEST 1 RK611 BASE ADDRESS TEST 


CHECK THAT READING THE RK611 BASE ADDRESS (RKCS1) DOES 
NOT CAUSE A NON-EXISTANT MEMORY TRAP. 


TEST 2 INTERRUPT VECTOR ADDRESS TEST CHECK THAT THE 
poet VECTOR FOR THE RK611 IS SET TO THE EXPECTED 
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#*STATUS VALID TESTS 
tt SHIH HIE HEHEHE 


TEST 3 SELECT ALL DRIVES 





IF NOT RUNNING IN APT AUTOMATIC, ENVIRONMENT DETERMINE 
WHAT DRI ARE Ne BY TING ALL DRIVES. 
I DRIVE ED 
RESET. IF DRIVE PRESENT 
DRIVE IS CYCLED UP, AND 
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IDENTIFIED -IN ETABLE ARE TESTED FOR NO ERROR, GAYE 
CYCLED UP, AND STATUS VALID SE gil ; 


IF LOCATION 41 INDICATES MEDIA IS ON THE 
FIC} yee een” O WILL ONLY iF THE ee START 


The Test i tet t resteo, THe ss 204) ILE RETAL 


IF THE PARAM START IS USED OPERATOR MUS 


PLACE DRIVE 0 rel IT I 


NOT 
TESTED. THE PROGRAR W eg a 
VALID TO DETERMINE THE TEST STATUS OF DR 


= 


THAT DRIVE NOT TESTED AND IT 1S EXPECTED 10 
ISTANT DRI . AT COMPLETION OF THE, TEST A 
MESSAGE WILL BE GIVEN TO IDENTI DRIVES TO BE 


USED IN TESTING. 


THE 
NOTE: THIS TEST MUST BE RUN AT LEAST ONCE BEFORE ANY 
OTHER TEST THAT FOLLOMKS. 


TEST 4 RELEASE ALL DRIVES q. 
RELEASE ALL DRIVES. MAKE SURE NO ERROR SETS AND 
STATUS VALID IS RESET. eae 
TEST 5 NON-STANDARD MESSAGES AND SVAL ; 
PICK ONE OF THE AVAILABLE DRIVES AND GET _NON-STANDAD 
NESSAGES. MAKE SURE NO ERROR OCCURS AND STATUS VALUD 
DOES NOT AND THAT NON-STANDARD MESSAGES CAUSE 
STATUS VALID TO RESET. 
TEST & WRITING CS2 AND STATUS VALID 
. SELECT AN AVAILABLE DRIVE. MAKE SURE STATUS VALID IS 
- SET. WRITE COMMAND AND STATUS REGISTER 2. MAKE SURE 
STATUS VALID RESETS. 
SLLZLELELZLLLELELLLLALALLAELSLELALELELELLELEALALLELAREAELELALES 
CONTROLLER ERROR TESTS 


SLLELELELELELELLLEAALELLLLLLLALELEL ELE LE LELLLLL ELE LLL ELELEE 


TEST 7 ORIVE TYPE ERROR 


CREATE A I Ver IB eer ee Te DRIVE TYPE ERROR 
TS AND SATUS VALID SETS. 
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TEST 10 STATUS VALID AND PARITY ERROR 


BSE SAEED RIL BNE ATE PMT 
STATUS CHANGES, DRPAR INTERRUPT STATUS 


Saga Met 


DRI 
SNTERRUPT eh Whe’ sToTuS VALID phe SET A AND eRe Bre ts S RESET. 


CONTROLLER NON-STANDARD 
cio NE Sine IVE SRTERRUPT AND ah LE Boe 


TENTION uITH DRIVE CLEAR. REPEAT 
ALL AVATLIABLE. DRI 


TEST 11 UNIT FIELD ERROR ON RELEASE 


ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE DRIVE. 
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A RELEASE 
COMMAND. CLOCK THROUGH PHASE. ADDRESS @. TURN OFF 
DIAGNOSTIC NODE. MAKE SURE UNIT FIELD ERROR SETS. 


TEST 12 UNIT FIELD ERROR ON SELECT 


ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE ORIVE. 
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SELECT 
COMMAND WITH MESSAGE ID = 3 AND DRIVE SELECTED = QO. 
CLOCK THROUGH PHASE ADDRESS 6. TURN OFF DIAGNOSTIC 
MODE. MAKE SURE UNIT FIELD ERROR SETS. 


* JE HHE HEHEHE 
##ATTENTION HANDLING BY CONTROLLER 
JEHHHIEHHHHHHHHHHHHHHHHHH HHH HHH HHI 
TEST 13 DOUBLE INTERRUPT 


ISSUE A SUBSYSTEM CLEAR. ISSUE A_ RECALIBRATE. MAKE 
SURE STATUS VALID IS SET. CHECK THAT SECOND INTERRUPT 
OCCURS. AFTER CK THAT STATUS 
VALID ff RESET. SSUE SELECT AND SURE STATUS 
VALID SETS. IVE. CHECK THAT DRIVE STATUS 
CHANGE SETS (BIT 14 OF DRIVE STATUS REGISTER) 

TEST 14 cae INTERRUPT FROM ATTENTION 


DRIVES a TO CYLINDER O. WAIT FOR INTERRUPT FROM 
a note far pareyry AGAIN AND MAKE SURE 
CLEAR DRIVE. 


ee nn eee me ee ee 


TEST 15 RESET e patta WITH UNIBUS INIT 


DO A SEEK TO CYLINDER O ON ALL AVAILI DRIVES. 
ISSUE A RESET. MAKE SURE ALL ATTENTION RESET. 


JOl 
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##ILLEGAL DISK ADDRESS ERROR TEST 

JH SHHHEHHEEHHEEHHHHEHHHHEHHEE HEHEHE HEHE HEHEHE 
TEST 16 ILLEGAL DISK ADDRESS (PART 1) 


pn a a TO st o TR oeLe MAKE SURE ILLEGAL 
OMPLETE SETS. “oo 


ed “Ser a nf att ine Erg seT FO FOR 


IDAE AI.ONE SETS FOR HEADS 4 
TEST 17 ILLEGAL DISK ADDRESS (PART 2) 


Iireba BreK ib mont Wen Eh. (ear CkoWTROLEER AND 


LELLLLLLLL ELE LEA ELELELLL LE 
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##WRITE HEADER TESTS 

JHE HHH HHHHHE 
TEST 20 READ BAD SECTOR INFORMATION 


ISSUE A READ DATA OF YOO WORDS TO ‘CYLINDER 632, TRACK 
E croR oer THE FACTORY DETECTED BAD SECTOR FILE, 26 


IF AN ERROR OCCURS, READ SECTOR 2, 4, 6, OR 10(8) 
SUGEEseriY REROVE-THIS DRIVE FOR} IF’ NONE READ 
SUCCESSFULLY REMOVE THIS DRIVE FROM TEST. 


WHEN A READ s 
PROK” ANS STORE’ THE ENTRIES FOR LAT sie ne A 


BAD SECTORS 24% SECTOR MODE, SOFTWARE DETECTED BAD 
SECTORS 26 SECTOR ee AND DETECTED BAD 
SECTORS 24 SECTOR IF OF BAD SECTORS 


FOR 24 OR 26 SECTOR MODE EXCEED 20(10) THE ORIVE IS 
REMOVED FROM TESTING 


NOTE: THIS TEST IS RUN IN THE FIRST (QUICK VERIFY) 
Pass ONLY. - 


TEST 21 FORMAT IN 26 SECTOR FORMAT 


FORMAT CYLINDER 312, TRACK O TRACK 1 FOR 26 SECTOR é 
FORMA VERIFY FORMAT AND T DATA LATE DID NOT 
OCCUR ZTH He HEADER ON IN READING DATA BUFFER 


ee ee ee ee ee 


JEHHHHHEHHHHHHHHHEHHHHHHHHHHEHHEE HHH 
##HEADER RECOGNITION TESTS 
$e A a A ae EEE 
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TEST 22 BAD SECTOR ERROR 
FORMAT CYLINDER 3le, K 0, ON SCRATCH sy TO HAVE 


Iecegt ta ‘Ge ules ih HESS SORE ob” ee TORS 


ISSUE A WRITE DATA OR 4OD WORDS TO CYLINDER 312, TRACK 
0, SECTOR 0. MAKE SURE BAD SECTOR ERROR SETS. ISSUE 
A'WRITE DATA TO CYLINDER 0, TRACK O, SECTOR 1 OF 400 

> WORDS. MAKE SURE SECTOR ERROR SET. ISSUE A WRITE 
DATA OF 400 WORDS TO CYLINDER 0, TRACK 0, SECTOR 2. 
MAKE SURE NO ERROR SETS. 


TEST 23 HEADER VRC ERROR 
T T RATCH PACK TO HA 
FORMA COLINOER ade cence RACK 0 Cann tS CH PACK TO HAVE 


Oo 


16 geo SSUE A WRITE DATA OF 
EACH OF SECTORS ries Bs BAD HEADER VRC. MAKE SURE 
HEADER ISSUE A WRITE DATA TO A GOOD 
HEADER ND MAKE SU SURE NO ERROR OCCURS. 


TEST 24 BAD SECTOR ERROR AND HVRC ERROR 


FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR ZERO HAS 
BOTH A BAD SECTOR ERROR AND HEADER VRC. ISSUE A WRITE 
DATA TO CYLINDER 0, TRACK 0, SECTOR O. MAKE SURE ONLY 
“HEADER VRC ERROR SETS. 


TEST 2S OPERATION INCOMPLETE 


FORMAT CYLINDER 312, TRACK _O SUCH THAT SECTOR 21 HAS 
THE WRONG FORMAT. ISSUE A WRITE DATA OF 400 TO 
CYLINER 0, TRACK 0, SECTOR 21. MAKE SURE OPI SET. 


TEST 26 OPI WITH HVRC ERROR 


FORMAT CYLINDER 31 312, TRACK o SUCH THAT HEADER VRC 
ISSUE aliarre BATA DATA BNO SECTOR WORDS “To ey fae ator ORPACK 
0. SECTOR mie THAT BOTH OPERATION INCOMPLETE AND 


TEST 27 HVRC IGNORE ON NON-ADDRESSED SECTOR 


FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR 20 HAS 

HVRC ERROR. {ISSUE A HRITE TE DATA OF 4 OF 400 WORDS TO 
CYLINDER 312, TRACK 0, AND SE MAKE SURE HVRC 
IS NOT SET AT THE END OF THE SPeRATION. 
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JHB HBB HHH HEHHHHEHHE HEHEHE HEHEHE HEHEHE EERE 
TEST 30 WRITE AND READ ONE SECTOR 


the Bi ane 


ITE rte OFRAch oe 
READ OR SORES YEINDE REREES eaanh WHAT IS 


TEST 31 WRITE DATA ADDRESS GREATER THAN 32K 


ISSUE A WRITE DATA OF 400 WORDS -™ ADDRESS = 177770. 
MAKE SURE CORRECT DATA IS ON DISK 


NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K OF 
MEMORY IS PRESENT. 


TEST 32 READ DATA ADDRESS GREATER THAN 32K 


ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 177770. 
CHECK MEMORY FOR CORRECT TRANSFER. 


NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K OF 
MEMORY IS PRESENT. 


TEST 33 WRITE DATA ADDRESS GREATER THAN 64K 


ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 377770. 
MAKE SURE CORRECT DATA IS ON DISK. 


NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN EYK OF 
MEMORY IS PRESENT. 


TEST 34 READ DATA ADDRESS GREATER THAN 64K 
ISSUE A READ para OF Penery WORDS. WORDS WITH ADDRESS = 377770. 
CHECK MEMORY F: TRANSFER. 


NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 64K OF 
MEMORY IS PRESENT. 


TEST 35 WRITE DATA ADDRESS GREATER THAN 96K 


ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 577770. 
MAKE SURE CORRECT DATA IS ON DISK. 


NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 96K OF 
MEMORY IS PRESENT. 


TEST 36 READ DATA ADDRESS GREATER THAN 96K 
ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 577770. 
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CHECK MEMORY FOR CORRECT TRANSFER. 


NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 96K OF 
MEMORY IS PRESENT. 


TEST 37 PARTIAL SECTOR WRITE DATA 
ISSUE A WRITE DATA OF 103 WORDS TO CYLINDER 312, HEAD 
0 SECT OR 6. MAKE SURE THE SECTOR WAS ZERO FILLED 
CORRECTLY 

TEST 40 PARTIAL SECTOR READ DATA 
WRITE CYLINDER 312, TRACK 0, SECTOR ZERO WITH A KNOWN 
CONFI ISSUE A ATA OF 103 WORDS TO 
CYLINDER 312, TRACK 0, raeCtOR 0. MAKE SURE ONLY 103 

T TRANSFERRED’ TO MEMORY 
TEST 41 WRITE DATA WITH NON-EXISTENT MEMORY 


ISSUE 9 WRITE DATA OF 1 WORD USING ADDRESS 776000. 
MAKE SURE NON-EXISTENT MEMORY SETS. 


TEST 42 READ DATA WITH NON-EXISTENT MEMORY 


ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000. 
MAKE SURE NON-EXISTENT MEMORY SETS. 


TEST 43 UNIBUS PARITY ERROR 


INITIALIZE A MEMORY LOCATION WITH BAD PARITY. ISSUE A 
WRITE DATA OF 400 WORDS STARTING AT J LOCATION 110 
WORDS BEFORE THE LOCATION WITH BAD PARITY. MAKE SURE 
THAT UNIBUS PARITY ERROR SETS. 


NOTE: THIS TEST IS ONLY EXECUTED IF MEMORY PARITY 
OPTION EXISTS FOR BUFFER. 


LELLLELELELELLELERLLLLLLLLELELELELEELERE LLL LLL LE LEE LEE REELERE 


**MULTIPLE SECTOR OPERATIONS 
SESE SESE REESE SEER SESE ER SEER EEE EEE SEA EE EE EEE 


TEST 44 THO SECTOR WRITE DATA (PART 1) 
ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312 
TRACK 0, SECTOR 0. READ DATA BACK ONE SECTOR AT A 
TIME AND’ MAKE SURE IT IS CORRECT. 


TEST 4S TWO SECTOR WRITE DATA (PART 2) 


ISSUE A WT DATA OF 1000 WORDS TO CYLINDER ste, 
TRACK mak une ree Bs AD DATA BACK a ae Hh R aT 


MID-TRANSFER SEEK D 
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TEST 46 TWO SECTOR WRITE DATA (PART 3) 
ISSUE A WRITE DATA OF 401 WORDS TO CYLINDER 312, TRACK 
0, SECTOR 10. READ DATA BACK ONE SECTOR AT A TIME AND 
CHECK ZERO FILL OF SECOND CECT TGF. 
TEST 47 MID-TRANSFER SEEK ON WRITE (PART 1} 
ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER st, 
TRACK 0, SECTOR 25. READ DATA BACK ONE SECTOR A 
TIME AND’ MAKE SURE A MID-TRANSFER SEEK DID TAKE PLACE. 
TEST SO MID-TRANSFER SEEK ON WRITE (PART 2) 
ISSUE A SARITE E bar OF 1000 WORDS TO CYLINDER 312 
TRACK 25. READ DATA BACK ONE SECTOR AT A 
TIME Ng *MOIEE SURE A MID-TRANSFER SEEK DID TAKE PLACE. 
TEST S1 TWO SECTOR READ DATA (PART 1) 


ISSUE A READ DATA OF _ 1000 WORDS TO CYLINDER 312, TRACK 
0, SECTOR O, VERIFY THAT CORRECT DATA IS READ. 


NOTE: TWO SECTOR WRITE DATA (PART 1) MUST BE EXECUTED 
“ BEFORE THIS TEST. 


TEST S2 TWO SECTOR READ DATA (PART 2) 
ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312 TRACK 
0. SECTOR 23. VERIFY THAT CORRECT DATA IS ay AND A 
MID-TRANSFER SEEK DOES NOT OCCUR. 


NOTE: TWO SECTOR WRITE DATA (PART 2) MUST BE EXECUTED 
BEFORE THIS TEST. 


TEST 53 TWO SECTOR READ DATA (PART 3) 
ISSUE A READ DATA OF 401 WORDS i CYLINDER 312, TRACK 
pane om 10. VERIFY THAT ALL 401 WORDS ARE PLACED IN 


NOTE: TWO SECTOR WRITE DATA (PART 3) MUST BE EXECUTED 
BEFORE THIS TEST. 


TEST 54 MID-TRANSFER SEEK ON READ (PART 1) 
ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 
0. SECTOR 25. VERIFY THAT prORRECT DATA IS READ AND A 
MID-TRANSFER SEEK DOES OCCUR 


NOTE: MID-TRANSFER SEEK ON WRITE (PART 1) MUST BE 
EXECUTED BEFORE THIS TEST. 


TEST 5S MID-TRANSFER SEEK ON READ (PART 2) 


me ee ee ee ee 
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SSUE A READ DATA OF 1000 WORDS Tu CYLI TRA 
SECTOR 2S. VERIFY THA CORRECT DAT 6 AND 
MID-TRANSFER SEEK DOES OCCUR. 


NOTE: MIO-TRANSFER SEEK ON WRITE (PART 2) MUST 8€ 
CUTED BEFORE THIS TEST. 


TEST S& CYLINDER ADDRESS OVERFLOW (PART 1) 
ISSUE A READ DATA OF 400 WORDS TO CYLINDER 632, TRACK 
2. SECTOR MAKE SURE CYLINOER ADDRESS OVERFLOW 
ERROR DOES NOT OCCUR. 

TEST S7 CYLINDER ADDRESS OVERFLOW (PART 2) 
ISSUE A DATA OF 401 WORDS TO CYLINDER 632, TRACK 


2. SECTOR 25. MAKE SURE CYLINDER ADDRESS OVERFLOW 
ERROR DOES OCCUR. 


##18 BIT DATA TRANSFER TESTS 
SPREPEEPEEREEEE 


NOER 3le CK 
A IS REA A 


SRERERESFELE SE LHLARSSHERELE 
SKLELKESLELASRERERELESLLSE 
TEST 60 FORMAT IN 24 SECTOR FORMAT 
FORMAT CYLINOER 312, TRACK AND _ TRACK FOR 24 
SECTOR VERIFY KoRRAT AND THAT bata LATE DID 
ROY OCCUR WITH un iy WRITE HEROER ON IN READING DATA BUFFER 
TEST 61 24 SECTOR FORMAT DATA TRANSFER (PART 1) 
ISSUE A WRITE para OF IN 24 SECTOR FORMAT TO 
CYL INOER S12, TRACK pox 0, SEC WOR. SECTOR BACK AND 


TEST 62 24 SECTOR FORMAT fone TRANSFER (PART 2) 


TS CT. 


NOTE: THIS TEST IS EXECUTED ONLY IF MEMORY PARITY 
EXISTS FOR SPECIFIED LOCATION. 


TEST 63 24 SECTOR FORMAT DATA TRANSFER (PART 3) 


ISSUE A WR 5 OF TA OF PD fie IN 24 SECTOR FORMAT 
ino a TRACK FeeTe 7&3. wee areron ra 


fID-TRANEF 


ee es 
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RELEERRERERSEERESERRREEREEESEEEE EERE ER EEE RES EERE EERE E EEE EEE RE 
##SPECIAL DATA 
REREERSHLRSERERESEEEREREREEEREEEERA REESE LEER EER EEEE EERE ESHEETS 
TEST 64 MULTI-SECTOR DATA TRANSFER AND BSE 


co CYLINDER 312, TRACK O IN 26 SECTOR FORMAT WITH 


aecle Ee Sd “rnc Peary DATA OF Race 1800 Mor wore 


RROR SETS AND RKDA IS CORRECT. ha ate 5 
IS CORRECT. 


I 6 FE Da OF 1000 os Tene 2 12.7 RACK 

PRevEsiis OUS SECTOR IS LOADED i Ato Me Ets AND 

TEST &5 FORMAT TEST 

FORMAT CYLINDER 312 TRACKS 0 1 IN 26 SECTOR 
SURE. NO ERRORS SET, FE READ SECTORS 0-25 

AND aS nie SURES DATA CHECK DOES 


FEFESLLLESEREFEEFELELS LS FELSERELEERLELESTHSHAFELSELELRLLSAEESE 
SEWRITE CHECK TESTS 
HEEPSLLELEAELEGFSLE ES VSESESLE SESE SSREER EELS SLASHES SSF LHRS SR ESHK ES 
TEST 6& WRITE-CHECK WITH NO ERROR 
WRITE CYLINDER 312, TRACK 0, SECTOR O WITH A KNOWN 
PATTERN. DO A WRITE-CHECK OF 400 WORDS. MAKE SURE NO 


TEST 67 WRITE CHECK ERROR (PART 1) 


CYLINDER 312, TRACK 0, SECTOR O WITH ALL ZEROES. 
WeLTE Ce CK CYLINDER ate » TRACK O, pec toe O WITH SAME. 
EXE WORD 110 HAS THE 


DATA ONE FOLLOWING 
CONF IGURA TONS: 

000001 o00020 pone 01 

00004 000100 Oo2000 J 

000004 00 ptt 

000010 

MAKE SURE WRITE — FOR EACH OF T 

CONFIGURATIONS HAT BUS SS AND WORD COUN 
TS CORRECT. 


TEST 70 WRITE CHECK ERROR (PART 2) 
WRITE CYLINDER Ree TRACK 0, SECTOR O WITH 


17777 __IN 
0 G-uITH THe of ate ExceP CYLIROER 312, TRACK 0, SECTOR 
FOLLWOING CONFUGURATIONS 


te ee ee oe a a ns Se a eS a Se Oe SES One EE Oe: 
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SEO O016 


MAKE SURE WRITE ERROR SET FOR EACH OF THE 
Fo CL SURATIONS AND THAT THE BUS ADDRESS AND WORD COUNT 


TEST 71 WRITE CHECK OF PARTIAL SECTOR 


WRITE CYLINDER 32, scien 0 er ge a WITH A Peer 
i lf IONS. A WRI OF _110 

MAKING SURE a 111TH WORD oz DIFFERENT THAN 
para ON DISK. MAKE SURE WRITE CHECK ERROR DOES NOT 


zf 


HEPES ESELEELESRELSREELEKESES ESP SUERSESSLESLERELRRERESEREBEESE 
#£MAXIMUM DATA TRANSFER AND CONTROLLER TI 
FELLELESERSLHEE SS ELLE LELELESE SES AL RET ERKFS ELESERELARKERESS ERS SESS 
TEST 72 MAXIMUM DATA TRANSFER (PART 1) 
Beery ist Re Oh TE ren mM Ie SOOT 0 INSURE 
THE FORMAT Te CORRECT. 


ZERO OUT THE FIRST 2S6 SECTORS OF THE DISK gM One 


Loe Sige Weae BU en 


SECTOR 0. RAKE SURE 
but’ 1s NOT SETR” CHECK CYLINDER 


SECT "MAKE SURE WAS WRITTEN 
CORRECTLY. 
ORS 


NOTE: THIS TEST IS EXECUTED ONLY IF BAD SECT 
ARE PRESENT IN THE PIRST 256 SEC TORS ON THE 


TEST 73 MAXIMUM DATA TRANSFER (PART 2) 


out F RST 256 " a Tole DISK uITH 200000 

OPP TROER ES SEYLINOER B32, SSUE 8 WRITE OF 

rex De WRI MAKE SURE 
CONTROLLER Disc a “i, Mah set anise than Vi TIDER 
SEEK ‘To ty CYL ie Oh RITE CHECK OF 200000 
NOTE: nus Test EXECUTED ONLY IF BAD SECTORS 


IN THE FIRST ash. SECTORS ON THE 


TEST 74 CONTROLLER TIME OUT 





me en ee re ne en en | me ee eee 


nn ne | 


SEEK TO SUE A RECALIGRATE aN D¢__NOT 
WAIT FoR’ END Ono InTERRUPT oe TSSUE A READ HEADER OF 
he * » TRACK CONTROLLER TIME OUT 


iidtbicitibbddbisedipittibititititt tt TEI TESS r reg to eS 
##ERRORS DURING DAT 

SEAR AEA AEE EAR SE EAE ESE SEE AEE SEE SEE AEE a AE EE EAE ER AEE REE EE 
TEST 75 LIMIT DETECT ON DATA TRANSFER 


TEST 100 DRIVE TIMING ERROR 


of Beg Telit 


regione n Page| 6 
CLOCK SEEK AND 
me gnetOs! C 
‘fie eae BECAUSE NO DATA 
ONS ON DATA “oud 


JE EE EEE EEE Ea 
##ERROR FORCING IN DRIVE 
AHHH EE IE 





EE AEE SEE AE EE ee 
TEST 101 INITIALIZE CLEARING SACK 


Utes 


Se Ue ae ob ane viTy MESSAGE ID = 


TAGHOSTIC RODE OREKE SURE Ma PSE pope ae 


ru NOT SET. 











mee 0 err a ee are eee ere See + ee eo eee ee ne e+ es ems. 





TEST 102 DRIVE OFF TRACK 
OFFSET’ OF YoTEN CLEAR. ISSUE A RECALIBRATE. ISSUE 
I 


orive 5 TRACK 0. SECTOR 0. CLOCK THROUGH SEEK AND 


BEE GEM oteeoRES fy Prive ROREL rol 


AVAILIABLE DRIVES. 
TEST 103 FILE UNSAFE 


AREA HEAD OF CYLINOER “GL TRACK B JN 24 SECTOR 


FORMAT. FoR 00 8 a CT COMMAND IN 26 SECTOR FORNAT. PUT 
TAGNOSTIC MODE. 


ee ae pie tee Sa 


ATTEMPTING TO uRITE THROUGH 
SECTOR PULSE. SE EEPERT POR ALL AVAILIABLE DRIVES. 


TEST 104 DUMMY TEST FOR PREVIOUS TEST EXIT 

THIS TEST IS PRESENT TO MAKE SSWOSTB TABLE HAVE AN 
ENTRY WHICH RELATES TO “NEWDRV". THIS IS NECESSARY IF 
ABORTS THE TEST. "F furs pute WERE NOT PRECENT® THE 
PROGRAM WOULD SKIP THE “NEWDRV” ROUTINE AND GO TO’ THE 
TEST FOLLOWING “NEWDRV”. 

IN ADDITION, RE DRIVE Fok tet AND THE HEADS ARE 
ee T IS MUST BE DONE TO PREVENT 


D INTERLPTS FROM Teo DRIVE BECOMING READY AT 
H R LATER 


JHIGHEIHHIHIGHHEHHHHIHIEHEEHIEHEHEEE 
JHHHIHHHHHHHHHHHH HEHEHE 
TEST 105 RESET ATTENTIONS WITH UNIBUS INIT 


DO A_RECALIBRATE ON ALL AVAILIABLE DRIVES. ISSUE A 
RESET. MAKE SURE ALL ATTENTION RESET. 


TEST 106 RESET ATTENTIONS WITH SUBSYSTEM CLEAR 
| DO A BRATE ON AVAT DRIVES. ISSUE A 
Sec ySTEN CLEAR. NAKE SURE ALL ATTENTIONS RESET. 
TEST 107 SVAL AND ATTENTION FROM OTHER DRIVE 
8 RECALIBRATE ON ONE AVAILABLE DRIVE. Tene” 


POG Fa i hind Pade 


JHE HHHHHHHHHHHHHHE 
##MULTI-DRIVE OPERATIONS 
JHHHHHHHHEHHHE HE 


vat iD. ba 





























REMAINS RESET. 
REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES. 


NOTE: THIS TEST WILL ONLY BE DONE IF AT LEAST TWO 
DRIVES ARE AVAILABLE. 


TEST 110 OVERLAPPED OPERATIONS 
00.0 RECA Bere Ov BOTH DRIVE A AND DRIVE B. 5 
SEEK DRIVE A TO CYLINDER 1. IMMEDIATELY A 
WRITE BATA TO CYLI 100, i RACK 0 4 -y O ON ORIVE 
Be cel el Seine A ce arien TION SET. 

REPEAT FOR ALL COMBINATIONS OF TWO DRIVES. 


NOTE: IF ONLY ONE DRIVE IS AVAILABLE THE TEST WILL 
NOT BE DONE. 


ERROR REPORTING 


A DETAILED wrt ity ION THe FORMATS AND REPORTS 
CONTENTS IS VEN HERE. g Esa CSN IALLY THE SAME AS CAN 
* FOUND IN THe LISTING ERROR POINTER ‘4 


ERROR POINTER TABLE: 


te TS TAGLE CONTAINS THE ipormery ie a THAT CAN 
re NF ORMAT ION 56 rep BY SING THE INDEX NUMBER 4 
Foun. IN pale Is mS . INDICATES WHICH ITEM IN 


THE ONLY PERTINENT DATA IS (SERRPC). a" 


SURE STATUS VALID REMAINS SET AND DRIVE STATUS CHANGE 
5.0 
| T E CONTAINS 4 POINTERS 


DF T TA FORMAT 
ED Be aris Pecos fe 
Deeb, BE - I atv % TERS re gs RE FOR R 
| coud ne be R TAL : T0 cpa oa gaa 
| HAT Tn Tie INTEREST OF 
| Gore VEN Tus AS DESCRI a4, AS STgiacy 
| ARE “URED THROUGHOUT THE PROGRARS CHEN “AN ERROR IS TO Be 
| 


» THE TABLE ENTRY THAT PROVIDES THE DESIRED FORMAT I 


me ee eee ee ee 





ee ee eee - eee Cae ae oe eee en ere 


a ec ne = + ee 


HO2 


CHOSEN FROM THE DEFT T. THE TABLE ENTRY CHOSEN IS THEN 
e FIRST BLY The “SEcOnO) WORD 


: OF z UP THE 
SPr WME, Ws See chee Toe 


VER 
FORMAT THAT EACH TABLE ENTRY PROVIDES I 
OF - ALL DA 


HE S_ SHOWN BELOW WITH 
DF, OS ETE THE ENTRY TA FIELDS ARE TYPED IN 
tae TEM , 

TST NUM ERR PC ORIVE 

STESTN SERRPC ORVNUM 
ERROR ITEM 2 

He ed 


RKER RKASOF RKDCYL RKDA 
T.0S T.ER  T.ASOF T.DCYL T.DA 


THE REPORT. 
INCLUDED IN THE REPORT WILL BE ONE OR MORE OF THE FOLLOWING 
STATEMENTS: 


re oe fee ORexre rege a THAT on NOT SET IN OPERATION:” 
ERRORS SET IN OPERATION:” 
“THE ABOVE ARE ERRORS “oT IN OPERATION: ” 


3 2 eR S WILL BE ONE OR MORE Linge 


THAT SPECIFY T OLLOWING THE LAST LINE WILL 
A LINE THAT IDENTIFIES THE OPERATION BEING PERF 


EXAMPLE : 

gg tl DRIVE 

THE ARE ERRORS SET am OPERATION: 
DRIVE SELECT 


‘ 











ce Se es 6 aw eee ce 2+ a nee. 
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(RODITIONAL LINES OF INFORMATION) 
THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION. 


ars DRIVE 
THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 


(ADDITIONAL LINES OF INFORMATION) 
I'E> A NON-EXISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET” 


EXAMPLE: 
NON-EXISTANT MEMORY 

THE ARE UNEXPECTED ERRORS SET IN OPERATION: 

UNIBUS FARITY ERROR 

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 
WRITE DATA 


(ADDITIONAL LINES OF INFORMATION) 


THIS IS AN OF NON-EXISTANT MEMORY BEING SET WHEN 
UNIBUS PARITY ERROR WAS EXPECTED. 
ERROR ITEM 4 


NUN ERR PC DRIVE 
STESTN SERRPC 

Tce Teese TDS THER © TeASOF T-DCIL T-DA 
T.8A = T.WA 


ADD B00 AO] #01 A022 B02 A03_ 803 
SREGIO SREGI1 SREGI2 SREGI3 SREGIY SREGIS SREGI6 SREGI7 


THE ERRORS REPORTED BY THIS FORMAT ARE: 


inch 
: g 
a 
eS 
E 


5 
ms 
te 
g 











J0e 





rat g ENTRY is THE SAME AS ITEM 4 WITH THE ADDITION OF A 
MESSAGE THAT FOLLOWS. THIS MESSAGE IS: 


“ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID” 


THIS REPORT oe BE PRINTED WHEN THE GATHERING OF DATA FOR ADO 
THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR. 


ERROR ITEN & 
(peseriet OF ) 
eather a 
dc “Fes PE PE PSE PERL PR 
ar BA ar WC 
THE ERRORS REPORTED BY THIS FORMAT ARE: 


STESTN 
Teel Heese es TMER  ThABor 


Pr cRar TON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR 
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(DESCRIPITON OF OPERATION) 
tet NUM ERR PC DRIVE 
STESTN ERRPC 
EXPT IS 
SREGIO SREG11 
THE ERRORS REPOR THIS FORMAT ARE SOFTWARE DETECTED BY 
me EXPECTED RESULTS WITH ACTUAL RESULTS. THE SPECIFIC 












COUNT INCORRECT 
BUS ADDRESS INCORRECT 
a i oreect 
SECTOR ADURESS INCORRECT 
ERROR ITEM ii 
(ERROR INDICATOR OR STATUS BIT) 
NOT SET AS A RESULT OF 
(ANOTHER ERROR INDICATOR, STATUS BIT, OR OPERATION 
TST NUM PC pee 
STESTN 
RKCS1 RKCS2 RKDS RKER RKASOF RKMRI 
T.CS1 1.0S@ 1.05 .ER  T.ASOF T.MR1 


ERROR ITEM le 
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 


“NOT RESET AS A RESULT OF™ 


ERROR ITEM 13 
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
“SET AS A RESULT OF” 


ERROR ITEM 14 

THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
“RESET AS A RESULT OF” 

ERROR ITEM 15 


(HEADER WORD MISCOMPARE) OR (DATA MISCOMPARE) 
TST NUM ERR PC DRIVE 
STESTN SERRPC DRVNUM 


GOOD. BAD WORD NUM 
SREGIO SREG11 SREGIe 


ERROR ITEM 16 
ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 15S. 7" 
SUBROUTINES 


IN INTEREST OF CONSERV NG G MEMORY IT IS 

IVE USE OF SUBR HOWEVER, IN 
PRESERVING CODE READABILI "SUBROUTINE “Fehr 
OF THE FUNCTION oneIL ITY, 


ne ee ee SO oe ere 






L0e2 





SMALL AND IN GENERAL A SUBROUTINE ONL 


Gav ihrt'A SPECIFIED MORGER OF RILLT iat oeeTian (paar 





( TWATNN AND IS THE TIME TO 
WAIT). THE FOLLOWING IS A DESCRIPTION OF THE SUBROUTINES NOT 
PROVIDED BY SYSMAC: 






JHHHHIHHHEHHHBEHHHEHHHHEEHEEEHHEEHHE EEE HEHEHE 
LINE CLOCK CALIBRATE 
JEHHHHEHE HEHE HHHHEHHEEHHEEHHEE HEHE IEEE 


WAITS FOR A ie CLOCK INTERRUPT TO CALIBRATE THE 
INTERRUPTS We INGFUL TIME VALUE. IN mortise ON IT 
PRESETS THE TI IF THERE IS NO LINE CLOCK. TIMCNT 
TS USED IN THE LINE CLOCK SIMULATOR. 


CALL: JSR PC, CLKCAL 
JHE HHBHHBHHEHHEEHHEHES HEE HEHEE HEHEHE HEE HEHEHE 


OPTION PRESENT TEST AND SETUP 
JEHHHHEHHHHHHHB HHA HEHEHE HEE HEHEHE HEE 









THIS eure | CHECKS IF THE MEMORU PARITY OPTION AND 
THE LINE CLOCK ARE ON THE SYSTEM. FLAGS ARE SET IF 
PRESENT: CLEARED OTHERWISE, AND THE APPROPRIATE 
INTERRUPT VECTORS ARE SET UP. 

CALL: JSR PC, OPTTST 


pibibiitiistidibctpitititttbbbbbtititt tte Ett itt tt oo So 
LINE CLOCK SIMULATION ROUTINE 
JARABE HHHE HHH HHE HEHEHE 


THIS ROUTINE IS USED TO SIMULATE THE LINE CLOCK. 10 
Do THis THe VALE STORED IN 5 TS USED AS THE BASE 


IMES DECREMENT AND 
Ree ie oct ies FAP WEE 0 ee Ne 
CLOCK ; Ck COUNTER IS BUMPED. THEN THE TIMCNT IS 
a. TO 16 (REPRESENTS 16 MILLISECONDS PER LINE CLOCK 










THE CALLER AFTER 1 
HILL SECON AN BND E BUMPS Be THE LINE. CLOG CLOCK TICK COUNTER FOR 







CALL: JSR PC, MYTIME 
Se HE SE ES SEE SE EEE EEE EGE SE EEE CEE EE EE 


WAIT FOR INTERRUPT ROUTINE 
3 9 9 9 EA EA 


| 

| ‘ THE ROUTINE IS ENTERED BY 
| THe "GAL Speci Jes. MOK Ry UGK Or Ti Cine LOR 
| 


— ae ee + a + + ee ee 
c ——— 
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{NTERRLET DOES. NOT OCCUR IN THAT 1 ecate OF TIME, AN 
ROR MESSAGE IS PREPARED (BUT NOT PRINTED IN ‘THE 
ROUTINE}AND THEN RETURNS TO THE LOCATION FOLLOWING THE 
CALL. IF te ge THE RETURN IS BUMPED BY e. 
NORMALLY _AN oF eA re ILL BE IN THE LOCATION AFTER 
THE CALL TO INTERRUP 


CALL: TWATI6 THROUGH TWATISS, TWATIS, TWAT2S, 
TWAT8S, AND TWATIM 


JH HHH 


GISTER LOADING ROUTINE 
JES HHEHHHE HEHEHE EEE HEHEHE 


THE PARAMETERS FOLLOWING < CALL ARE TRANSFERRED INTO 
THE “L” REGISTERS L.CS1-L.OCYL. L.MR1 IS NOT LOADED 
IN THIS MANNER SINCE IT IS NOT COMMONLY LOADED FOR AN 
OPERATION. L.CSe IS LOADED FROM DRVNUM. 





CALL: JSR R4Y, LRLOAD 
COMMAND 
WORD COUNT 
BUS ADDRESS 
-BYTE SECTOR ADDRESS 
-BYTE TRACK ADDRESS 
CYLINDER ADDRESS 


ERE EEE EERE EERE EEE EE REE REE ERLE LEER EERE EEE EEE R EERE 
LOAD RK611 FOR OPERATION 
SEER EE EER EEE EERE ERE EE EEE EERE EEE EEE EEE EEE EERE 


THE REGISTER SETUP STORAGE IS TRANSFERRED TO THE RK611 
REGISTER. THIS IS A STRAIGHT TRANSFER WITH NO 
CHECKING OR MANIPULATION OF THE REGISTER CONTENTS. 
L.CS1_IS TRANSFERRED LAST AS IT SHOULD BE IF THE GO 
BiT Is SET. 

| 

| 

| 

| 

; 

| 

} 

} 


CALL:  TLOADRK 
JEHHHHEHHHEHEHEHHHEEHHHE HEHEHE EEE EEE EEE EEEE 


STORE RKS11 REGISTERS 
SARE SE SEE SE SESE SEE EE EEE SE EEE HEHE EEE HEE HEE HE EEE EEE ER REE EE 


ALL THE RK611 REGISTERS ARE STORED IN THE TEST TABLE T 
WITH THE EXCEPTION OF THE DATA BUFFER WHICH IS NOT 
STORED IN THIS ROUTINE. 
CALL: TGETRK 
waar 7 9 a ~ ma a me cmetmmanaaeceammmnir ats 
JEM HHBHHHEHHEHEHHHH IE HHEHHEHHH GHEE HEHEHE EEE EEE EEE 


HE WORD WHOSE BITS MUST BE COUNTED IS PLACED ON THE 


T 
STACK BY THE CALLING ROUTINE. THE NUMBER OF BITS 








ee ee ee ce ee ES 





ae ee + 


NO2 


FOUND IN THE WORD ARE PASSED BACK ON THE STACK. 
CALL: JSR R4, BITCNT 


Adididddddibdttibiicditicipiiteitie tii i TTT i res tt SESS tS tee 
MAINTENANCE CLOCK ROUTINE 
JHBBHHHHHEHHHHHE HEHEHE HHH HHH HHI 


PARAME PA TO wis ROUTINE ARE LOCATED IN 
THE ADDRES a TER THE CAL THE E Fist BYE CANTAINS 
hs HE NUMBER OF PHASES RODRE SES ROUTINE 

NTS THE CONTROLLER CLOCKED THROUGH an ” THE SECOND 
BYTE CONTAINS THE NUMBER OF CLOCK TRANSITIONS (PARTIAL 
PHASES) TO BE DONE. 


CALL: JSR R4, MCLOCK 
-BYTE ;NUMBER OF CLOCK TRANSISTIONS 
-BYTE NUMBER OF PHASE ADDRESSES 
HERRERA ELLER EEE EERE EERE EEE EE REEL EEE EERE EERE 
READ AND SORT HEADERS 
SE AEE SE ESE EEE EEE SEE EEE EEE EER EEE EER EERE EEE EEE 
THE HEADERS IN THE CYLINDER AND TRACK SPECIFIED BY THE 
IN THE REGISTERS ARE AND : 
THE READ HEADER OPERATION AND DATA LATE IS CHECKED 
AFTER EACH READ OF THE DATA BUFFER. 


CALL: a R4, RDSTHD 


TCHKOP sRETURN POINT IF CERR IN READ 
ERROR 4 

ERROR 13 ri tr’ DATA LATE IN DB 
ERROR 2 RETURN IF TO SLOW OR 


;IF HOR O NOT FOUND 


KELELLLLLLLLLE LE EL ELLLLE LLL LLL LL LELELE LE LAE AE RE LELALLAE ELAR EELS 
GET DRIVE STATUS 
LLLLLALLLALALALELLEL ALE LLLE LALA LALA ALERA REL ELELELALLLALEELLERE 


THIS ROUTINE GETS ALL THE DRIVE STATUS AND PLACES IT 
IN G10 THROUGH SREGI7. THESE REGISTORS ARE FIRST 

ALL ONES AND THEN IF ERROR OCCURS WHILE 
GETTING STATUS, THE 1’S ARE LEFT IN THE REGISTERS. 


CALL: JSR R4, GETDRS 
BR ERROR PROCESSING ERROR RETURN 
BR NO ERROR PROCESSING GOOD RETURN 


SM HE AEE HH EAE HEME EE HEE EEE EEE EEE EEE ER REE EKER 
SUBSYSTEM INITIALIZE AND INITIALIZE STATE TES 
HEA EEE EE IEE RIESE AE EEE EERE EAE HEE EEE REE 








. 
cm ne eee 


2 ee ee eee. cree eee owes. 





ee 
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SES 0027 


THE SUBSYSTEM IS INITIALIZED W TH a SUBSYSTEM CLEAR 
core CERR AND DI_ARE MONITORED FOR A ace! PETROD 
OF TI DURING WHICH THEY SHOULD BOTH RESET. 


IF THEY DC RESET, READY IS TESTED TO INSURE IF SETS. 
IF ANY OF THESE T CONDITIONS ARE NOT MET 
EN THE RO er ME —n IS PREPARED AND REPOR TE 
WHEN THE RETURN TO THE CALL. IF EVERY THIN Ne 
£3 000, THE RETURN SKIPS OVER THE ERROR CALL AND TEST 


TO THIS ROUTINE Sa BE FOLLOWED BY AN 
AND oy tal pee OF TEST. THIS IS DONE 


ear RILURE TO INIT CORRECTLY IS FATAL TO 


CALL: TSSINIT 
SAE gE SE EAE EE A Se EE a EE AE EE ER EE 
WORD COUNT AT END OF OPERATION CHECK 
SHHHHHHIHHHHHEEHHEHHHHEHHHEHHHHHEHEEHHEEHEHEHEHEHEHEHGHEEE 
ras ers TUB cou THE CONTENTS OF THE TEST STORAGE 
AGAINST THE SUPPLIED VALUE. IF 


CREOUALY FLAG (WCERR) IS SET IN GROUP 4 
PRE Oe EY pac (EREGER) 


CALL: JSR RY, CHKWC 
- WORD sEXPECTED WC VALUE 


FEFLEFLLLELEELLFLLLELLELLESEELLELESSLELALLLEE SERA LEEESSEEE ELLE 


BUS ADDRESS AT END OF OPERATION CHECK 
4S EE EH a EE EE A dat 


BP Re LL Be elk 
Be Botte aol mike e let "h 


F BUS GOORES? NCREMENT INHIBIT WAS SET, THE EXPECTED 
EUS RODRESS STARTING BUS ADDRESS. 


CALL: JSR RY, CHKBA 
3 A A A a EH 
CYLINDER, TRACK, SECTOR TEST A AT END OF OPERATION 
JAE HHHHH HHH HHH HEHEHE 2 HHHEHEHEEEHHHHHBHHE 


as On ROUTINE CHECKS THAT THE CONTENT RKDCYL 


Te” Soeantron: FOR my : Site bata, TRANSFER ah: M3 


REGISTER 'S STORAGE ARE COUNTED ON TO HAVE THE INITIAL 
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WALUES TO MAKE THE NECESSARY CALCULATION. 


ALL THREE VALUES ARE GENERATED AND STORED IN EXPECTED 
VALUES STORAGE et EXPTRK, EXPSEC. ALL 3 ARE 

EORRESPONDIN ary Sie OR ARE WRONG, — THE 
ING BIT IN THE ERROR FLAGS FIELD (GRP4ER) IS 


CALL: JSR R4, CHKCTS 
PERELEREREREEREEEREEREA AREER REAR EERE EERE EERE EEE EE EERE EEE 


OPERATION CHECK ROUTINE 
Ae ge ge Ae EEE a ad A EE 


TS IS Fubte Tennone hee rou ERROR 1er0 os AND 
Pe esealinaail fe at fe 

INE WILL BYPRSS IF NO 
Freon 15 FORD rac RN TERROR I CTED, THE ERROR 





CALL TCHKWE : 
a 
WORD ; GROUP 
WHERE IT IN THE WORDS FOLLOWING THE 
REPRESENT e SPECIFIC - THE BIT ASSIGNMENTS ARE 
GIVEN BELOW: 
GROUP 1 


; 
a 
2 
a 
5 


444 4 4 ttt 


WWOWDDWWDOMOWOMOWMD w 
fore oe tee re te ee eee ee ee] 
oe DONMUN LUI 
MeO 



















-po3 


BIT 13 - NO CERR WITH O Ma ERROR SET ERROR 
BIT 14 = DRIVE UNSAFE ERR 

BIT 1S - CERR BUT NO OTHER ERROR SET ERROR 
GROUP 2 a? 

BIT 0 - ECC HARD ERROR 

BIT 1 - DATA CHECK ERROR 

BIT § - WRITE CHECK ERROR 

BIT 3 - DATA etl 

BIT 4 - OPERATION INCOMPLETE ERROR 

BIT S - HEADER VRC ERROR 

BIT & - BAD SECTOR ERROR 

BROUP 2 ERRORS: 

BIT 0 - NON-EXISTAND DRIVE ERROR 

Bit .* CONTRO EER TIMEOUT ERROR 

BIT z > MUL TIPLE Dave SELECT ERROR 

BIT 4 = PROGRAMMING 

BIT 5 - NON-EXISTANT MEMORY ERROR 

BIT & - UNIBUS PARITY ERROR 

BIT 7 - ILLEGAL FUNTION ERROR 


SEE sek SEE EE EE EEE EE SE EE a AE EE 
BAD SECTOR CHECK 
SRESEEEEEEEEEEE ES aH aE 


THE FIELD WHOSE ADDRESS 1S IN THE LOCATION AFTER THE 
CALL IS CHECKED SEE IF ANY SECTORS ARE LISTED 
THEREIN THAT HAVE Cyl AND TRACK ADDRESS 
CIFIED IN L.DCYL L.OT. IF A SECTOR IS FOUND IN 
FIELD THAT IS BAD FOR THAT CYLINDER AND TRACK 
SECTOR NUMBER IS PLACED ON THE STACK. THE TOTAL 
NUMBER OF BAD SECT PLACED ON THE STACK AFTER THE 
ENTIRE FIELD I Sr OReHED. 


CALL: JSR R4, BOSRCK 

<RDORESS OF FIELD TO BE SEARCHFD> 
SSAKULEEESERELERSE SELEESEKEELLS LEE KER ERE SLE REESE SHEAR EL SESS 

DATA GENERATION MO C COMPARE ROUTINE 

SEEELLELEE ELL EEES ELE ELSE RRE REELS ARTES RSESRE EKER SER REREKEREL ERE 


CALLS: JSR R4, GENCOM 
CONTROL WORD 


JSR R4, GENCOM 
CONTROL WORD 


conTRat RY, GENCOM 
Haat ION CONSTANT 
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RETURN: RTS RY 
RY IS vied IN THE CODE FOR THE FOLLOWING RETURNS: 
ie TROL GORD RETURNS TO 7 —e OLLOWING THE 
HIS IS UNCONDI 


es a TO THE LOCATION FOLLOWING THE 


os TF Bain Us To Be GENERATED OMCy”"OR ng 


HE RETURN IS TO LENGTH 


THE THIRD CALL IS IDENTICAL TO THE SECOND. 
DEFINITION OF CONTROL WORD: 


BIT 1S ee OF F (SOURCE) TO 
ret CTED VALUES ARE 


BIT 14 CRP _OPERAT iON FROM POINT LEFT 
31T 13 FOR SOURCE 
BIT le - ~ HE ee EMORY MANAGEMENS FOR DESTINATION 
BIT 11 - Oa FIRST WORD OF SELECTED PATTERN 


Bir & : aie Gi Bea te DeRING Bs Fives 
BIT 8 HEADERS, Al SECTORS INDICATE 
” thoes 
BIT 7 - HEADER aT TON ON SPECIFIED (EITHER 


COMPARE 
BIT & TO 0 - PATTERN CT té OCTAL ENCODED. 0 
Es NO DATA ‘GENERATION, 1 IS ALL 


Ba 1S S. OTHER | Pat 
PA 2-6 E REFER 
io iP PRochen LISTING FOR a THROUGH 


THE ITH CONTROL WORD THE ONLY PARAMETER IS 
USED FOR BUILDING OR COMPARING HEADERS OR RESUMING 
A COMPARE OPERATION. 


PORARETERS “IS USED FOR DATA GENERATION OR. COMPARE 


AND FOR IBUFF INITALIZATION. 
THE WORD, RELOCATION CONSTANT 
BO LENGTH Me hctH tT Het 1s Ube FOR DATA GENERATION OR COMPARE 


DESCRIPTION: 
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THIS ROUTINE IS MULTI-PURPOSE AND WILL PERFORM THE 
FOLLOWING: 


A. BUILD HEADERS, EITHER 20 OR 22 SECTORS/TRACK MODE. 
Be UN ote YP TR EGP tt 
WARE) FOR EITHER FORMAT Int 

en THE HEADERS WITH THE SECTORS 


SORCUnT few Bu 
rereD Pe I en. FOR THE CYLINDER - TRACK 


B. COMPARE THE CONTENTS OF IBUFF AND OBUFF (BIT 15). 


THE CONTENTS OF THE PECIFIED (Gif 
g HERDER CORRE et he i 
7) WHICH LERTTED. 


Puce) on 102 (8) 
re THe FORMAT alr THAT Was ait Lasts SPECIFIED 


1 one co OPERA TON T 18 eto at 8 
OR 9). para CON pis0 BE 
COMPARE (NON-ZERO B —— 
é. Show pies, TION. — IF 8 COMPA TION 
SUCH THAT Fee COMPARE 
ae THI FS DONE BY CALL ING GENCOH 
GTTH BET SW SET IN THE CONTROL HOED. 


D. DATA EN ay OR COMPARE USING 


PENORY RANAGEMENT CAN BE FOR 
S Gar east BEAN BE Rade TO PLace 
i dee aes Be REL ISE DATA 





AVAILABLE. RERORY 
JHHEHHHMHHEHHHHHHHHHHHHHE SEE 
PHASE LOCKED LOOP CLOCK ADJUSTMENT ROUTINE 
SdH Heh et 


THIS ROUTINE Been ome VIO aig a 3.10 SET 220(8). 
PROGRAM 


ile ho oe eg Sool 


Rode Bt ohtuer we ear re we 


THTS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED. 
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LSkS TS AND SVAL 
tard Té 1 AND STATUS VALID 
1547 17 VE R 
1581 T10 as ALID AND PARITY ERROR 
1768 Tl UNIT 
1816 T1 UNIT F c 
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1981 Tl c INIT 
onaa ti aa "DISK ROORESS ea 
at 1 eat 3} 
2151 ##WRITE 
oi T20 TOR INFORMAT on 
ll Tel Fi CTOR F 
cust RE coaNtT On is 
ie ase 
Te4 BAD SECTOR 
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175 eT TA TRANSFER 
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Tl T ATTEN WITH UNI NIT 
Toe RESET AT TONS WITH BUBSYeT M CLEAR 
Tl SVAL AND ATTENTION FROM OTHER DRIVE 
T110_ ~—_ OVERLAPPED OPERATIONS 


SEG 0034 





TYPE ROUT 

NON-EXISTANT INTERRUPT CHECK HANDLER 
TRAP HANDLER 

OPTION AND SETUP 

C ERROR 


, te ney; 

L OCK SIMULATION ROUTINE 
WAIT FOR INTERRUPT 

“L® REGISTER LOADING ROUTINE 
LOAD RK61 
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-NLIST CND,MD,MC 
e ME 


LIS 

MCALL AREADE ER QUAT, . SETUP S4OCAT CMTAG 
“MCALL ie ie 5 SRE, ORT YP, ules bac? 
“MCALL OuER, RAP. SREAD; -SRDOCT, Me il, “tei, § -SACTLI 
-MCALL .SSAVE, TYPNAM, .$ 
$SWR= iSeeTyre 
STNz oh 

TITLE RKEI : FUNCTIONAL CONTROLLER DIAGNOSTIC 

;#COPYRIGH 976 


C) 
;*DIGIT Fay NT -— 
ian ler 


HSPROGRARN BY MARV TEGROTENHUIS 


SSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
j EPACKAGE (MAINDEC-11-DZQAC-C1),MAR 24, 1976. 


‘SerTL OPERATIONAL SWITCH SETTINGS 


*% 

ii SWITCH USE 

+ 15 HALT ON 

3% 14 L ON 

* 13 INHIBIT ERROR TYPEOUTS 

2 12 ABORT PROGRAM AFTER 20 ERRORS 
2 il INHIBIT ITERATIONS 

3% 10 BELL ON ERROR 

+ g LOOP ON ERROR 

+ ono ON TEST IN SWR<7:0> 


8 
-SBTTL BASIC DEFINITI 


jXINITIAL, ADDRESS OF THE STACK POINTER ### 1100 #4 
EQUIV , ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT} SCOPE BASIC DEFINITTON OF SCOPE CALL 
s AMISCELL ANEOUS DEFINITI 

AT: i $3 FOR HORIZONTAL TAB 

1 FOR LINE FEED 

tre 5 + {CODE FOR CARRIAGE RETURN 

CRLF= CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 77776 PROCESSOR STATUS WORD 
ey pe LIMIT 

= 
IRG= 177772 $ Boga TH TERRUPT RE REQUEST REGISTER 

DSWRe 177570 + TRROLARE SWETCH RE 

DOISP= 177570 t# HAROWARE DISPLAY REGISTER 
#GENERAL PURPOSE REGISTER DEFINITIONS 

70 ;GENERAL REGISTER 

Rls x4 +: GENERAL REGISTER 

Kas is ; iGEheRaL RECTETER 
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panes ropO2eene MSSHESRBsrscce SISSSNNay -Seneeedaas. 
ee -PrTT sy ugnngBeereDerrr™ SHMMAKE YY 9s 
uyuse ESAS SEY SPER PEL ebecdccadssagssad Seneeeeereee 
Beste SRePreeee Saaaaaa A2gGcccoooooS Sa Ee eee 


BASIC DEFINITIONS 
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ot a a a a as 
Siow ~erul ce 


SEER RES BEEP 


eatetetatetetaretatats 
BSosFAHESHALS 


~~ 
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BITO4= 2U 

BITO3= 10 

BIT02= 4 

HB 

EQUIV Br103, 8179 

-EQUIV BITO8;B1T8 

-EQUIV BITO7,B1T7 

-EGUIV TE RE 

‘EOuNY BUG BITs 

“EQUIV BtTos' Bite 

-EQUIV BITOI,BITI 

.EQUIV BITOO;BITO 

;¥BASIC “CPU” TRAP VECTOR ADDRESSES 

ERRVEC= 4 sTIME OUT AND OTHER ERRORS 
RESVEC= 10 {RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 pe: BIT ap 

aBTVEke tH SENT TRAP (BPT) 

OTVEC= I Being /QuTPUT TRAP (IOT) **SCOPEx« 
WiVEcs 5 10R TRAP (EMT) **ERROR#* 
RAPVEC= Hn TRAP 

TKVECS 60 


sTTY KEYBOARD VE 
= 84 s3TTY PRINTER VECTOR 

PTRBVECS 40 PROGRAM INTERRUPT REQUEST VECTOR 

-SBTTL MEMORY MANAGEMENT’ DEFINITIONS 

;#KT11 VECTOR ADDRESS 

MMVEC= 250 


;#KT11 STATUS REGISTER ADDRESSES 


| 

172516 

;*#KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 


;*#KERNEL “I” PAGE ADDRESS REGISTERS 
KIPARO= 172340 






SEG 0037 










; ee ee ee 
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b> hsb b= PP pe 
o 
wo 


H—BaaNea Zan S 


bt bh bb = bh FF bb bb > bs bb Be 2 pe pe 


BOVHR LG SSSVRR Lore 


Res 


GeNeine 


rurururorururororor 
a so bn hn ee 
WOnNMUN © WU 


S 
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un 
We 
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INITIONS 
KIPARI= 172342 
KIPARe= 172344 
KIPARS= 172346 
KIPARY= 172350 
KIPARS= ‘72352 
KIPAR6= 172354 
KIPAR7= 172356 
AVECTI= 210 ;DEFINE RK611 VECTOR INTERRUPT 
APRIOR= PRS ;DEFINE RK611 PRIORITY 
ABASE= 177440 ;DEFINE RK611 BASE BUS ADDRESS 
SBTTL RK611 CONTROLLER REGISTER DEFINITION 
RKCS1= 0 ;CONTROL AND STATUS REGISTER 1 
RKWC= 2 ; WORD COUNT REGISTER 
RKBA= 4 ADDRESS REGISTER 
RKDA= 6 DESIRED TRACK SECTOR REGISTER 
RKCS2= 10 CONTROL _AND STATUS REGISTER 2 
RKDS= le ; DRIVE STATUS REGISTER 
RKER= 14 ;ERROR REGISTER 
RKASOF= 16 ATTENTION SUMMARY AND OFFSET REGISTER 
RKDCYL= 20 ; DESIRED CYLINDER REGISTER 
RKDB= 24 :DATA 
RKMRI= 26 MAINTENANCE REGISTER 1 
a | ; MAINTENANCE REGISTER 2 
MR3= 36 INTENANCE REGISTER 3 
RKECPS= 30 te C POSITION INFORMATION 
RKECPT= 32 ECC PATTERN INFORMATION 
nKSPAR= ee :SPARE REGISTER 
-SBTTL DRIVE COMMANDS 
SELDRV= 101 ;SELECT DRIVE 
PACK= 103 PACK ACKNOWLEDGE 
CLEAR= 105 ; DRIVE CLEAR 
UNLOAD= 107 
SRTSPL= 111 ;START SPINDLE 
CAL= 113 ;RECALIBRATE 
otacls 113 ; OFFSET 
4 : 
RDDATA= 121 ;READ DATA 
WROATA= 123 ;WRITE DATA 
ROHEAD= 125 ;READ HEADER 
WRHEAD= 127 ;WRITE HEADER AND DATA 
WRTCHK= 131 ;WRITE CHECK 
TR= 300 ;GENERATE INTERRUPT TO CPU 
SBTTL CONTROL AND STATUS REGISTER 1 BITS 


BITO ;60_ BIT 

BIT ; INTERRUPT ENABLE 

BIT CONTROLLER READY 

BITS ;BUS ADDRESS BIT 16 

BITS ;BUS ADDRESS BIT 17 

BIT10 CONTROLLER DRIVE TYPE (O=RKO6) 










— ——- 
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KB. CONTROL AND STATUS REGISTER 1 SITS SEG 0039 
24 004000 CTo= = BiT1I OM IVE RE pee OUT WAITING FOR 
34 010000 CFMT= BITle ‘CONTROLLER DRIVE FORMAT (O=26 SECTOR, 1=24 SECTOR) 
4] 020000 SPAR= BIT13 :DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER 
223 04 = BIT14 ; DRIVE INTERRUPT 
230 10000: CERR= BITIS ;CONTROLLER ERROR 
ssi 1000 CCLR= SITIS ;CONTROLLER CLEAR 
S34 -SBTTL CONTROL AND STATUS REGISTER 2 BITS 
235 0007 DRVMSK= 7 ;MASK FOR DRIVE SELECTION CODE 
236 000010 RLS= 8BIT3 ;DESELECT OR RELEASE DRIVE IN BITS O-2 
237 000020 BAl= BIT4 BUS ADDRESS INCREMENT INHIBIT 
238 O00C40 SCLR= BITS ; CLEAR CONTROLLER AND ALL DRIVES 
239 000100 IR= BIT6 T_READY 
240 000200 OR= BIT? OUT a READY 
241 00 UFE= 8BIT8 ;UNIT FIELD ERROR 
242 001000 MOS= BITS fe an DRIVE SELECT 
243 PGE= BIT10 PROGRAMMING ERROR 
e44 NEM= BITI1 :NON-EXISTENT MEMORY 
245 010000 NED= BITle NON-EXISTENT DRIVE 
ets 020000 Ure Bitlis sUNTBUS FBR poi Ty ERROR 
24 040000 WCE= IT14 K_ ERROR 
cue 106000 DLT= BITIS :DATA LTE” ERROR 
334 -SBTTL ERROR REGISTER BIT DEFINITION \ ir 
ese 000001 ILF= BITO ; ILLEGAL FUNCTION CODE A \ f 
253 0000 SkI= &BITl :SEEK_ INCOMPLETE t 
es4 NXF=  BITe ;NON-EXECUTABLE DRIVE FUNCTION 
ess 000010 DRPAR= BIT3 DRIVE DETECTED DRIVE BUS PARITY ERROR 
256 000020 FMTE= BITY FORMAT ERROR 
257 000040 DTYE= BITS ; DRIVE TYPE ERROR 
2S8 000100 ECH= BIT6 H 
2s3 000200 BSE= BIT? ‘BAD SECTOR ERROR 
260 000400 HVRC= BITS ADER VRC_ERRROR 
261 001000 COE= BITS ‘CYLINDER ADDRESS OVERFLOW ERROR 
262 peau IDAE= BIT10 INVALID DISK ADDRESS ERROR 
263 000 WLE= BITll : WRITE son ERROR 
264 010000 DTE= B1Tle sDRIVE TIMING ERROR 
265 020000 OPI= BIT13 j OPERATION (SEARCH) INCOMPLETE 
266 040000 UNS= BIT14 DRIVE UNSAFE 
a4 100000 DCK= BITIS ;DATA CHECK 
cos -SBTTL STATUS REGISTER BIT DEFINITION 
gl 000001 DRA= BITO j DRIVE oe eae (CONTROLLER IS SET IF 
72 THIS BIT IS RESET) 
273 0004 OFST= BITe - ‘DRIVE OFFSET 
274 000010 ACLO= BITS . sAC LOW 
275 SPOLSS= BIT4Y ;SPEED LOSS 
276 0040 DROT= BITS ;DRIVE OFF TRACK 
277 000100 VVs BITé © ; VOLUME VALID 
278 0200 DRDY= BIT7 ;ORIVE READY 
th 000400 DDT= BITS. s DRIVE TYPE (O=RKO6) 
0 WRL= BITI1 ;WRITE LOCK 


LT A LT TE TT LT nnn, 
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aw 


STAT 


RAS11 FUNCTIONAL CONT 
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;POSITIONING- IN PROGRESS 
;ORIVE STATUS CHANGE 


;STATUS VALID 


~SBSTTL MAINTENANCE REGISTER 1 BIT DEFINITION 


be 


SS iL RR oy 


FectOR PULSE 


4 
. 
a 
w 
5 
2 
i 
z 
: 
z 


CL 
THON AY 7 
UR Js BEING READ OR WRITTEN 


;READ GATE 


~SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 


;MESSAGE MASK 
;FORCE EVEN 
: TIC 
T 
PRECOMPENSAT 


s ERR 
WRITE 


O-munmM 

TiNwr- marae 
O-t-b -b- bbb 
O00 -4 > -4 >< 4 4 4 4 0-0 0-4 4-0 
OMOMDOMOOMOOMOnm 


te 00 08 ot 
iT} ea i sae 
aparerrin epee 4 


i Heese 


= 


com Kea Ke om Kot Kak Dam Bee Root Roe | 
MMOMMMMMC CC 


gegek ysis 


rw 
Swan 


oe OS OS CH OH OS OH OS ESE Oe 


~SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B 


CON PARITY ERRCR 


zit 


YLINDER ADDRESS 


o-tumMs 
MOR WM me 


See cre 


UOUIUIUIUIMNMNWIUIUN 


ees Me 


a 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A 


; TRANSOUCER OK 

; S_HOME 

; KED 

; RLOCK 
;SPEED OK 

; FORWARD 


Wren oe 


HOME 


east’ 


eu 


coat 


SARSNSRSRRA AS 


CO4 
Q1-0CT-76 10:50 PAGE & 


TION OF ORIVE STATUS BYTE O01 MESSAGE A 
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AD SELECT 


UNILNUNNINinNinUIn 


-SBTTL DEFINITION OF ORIVE STATUS BYTE O1 MESSAGE 8 


S 


CH_AND PROCESS ILLEGAL 


VECTOR AREA CONTAIN 


T 
I 


MIGHT OCCUR 
ON THE I 
WHICH (T 


“LEB 


gfe 


2 Ee Bee 


Pee ee SAU LMM TP AE PSS SSS Tt to tt 


eg ce re a rr eee re ee er Fe een mr a me nee err wee eee = ere = + ere ns ee ee 


LLEGAL TRAP/INT 
RETURN PC IS 


GAL TRAP 
TRAP 


TS NOT AN 11705 THE PROGRAM 
AT ADDRESS 0 AS WELL AS ADDRESS 200. 


shite 





5 
g 
28 « 
e 8. ae 
- Cone 
~o oe ae 
2 98 54 2 
ie: a3 
Ge82 oe & 
38 
g2 
2 Be 
ui 25 eorasee 
- 3 ood 
« Oor~ 
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occ204 
005214 
000220 


eeprom 


412 


Bue 
14 
000137 
000137 


ocd2e4 





001726 
0017i6 
001706 


oe RESTRT ;JUMP TO RESTART ROUTINE 


PARM ;JUMP TO OPERATOR ASSIGNED PARMETERS 


Ay TCLK sJUMP TO SET CLOCK ROUTINE 
.SBTTL APT PARARETER BLOCK 


eT LOCATIONS 24 OD WG REQUIRED FRC 


iSET LOCR TIONS 24 AND 44 AS REQUIRED FOR APT 
in aah Ge La a 


3 ;SAVE CURRENT LOCATION 
cy 2! iPr ore FA ue 0 POINT TO START OF PROGRAM 
$iC0e & I I CT RODRESS PNTR. 
SAPTHOR $3POINT T AbT IROIR 
* RESET [ocaTion COUN 
i pa ae. 
fall eel T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


SAPTHD: 
SHIBTS: .WORD 
SMBADR: . 
STSTM: .WORD 


SPASTM: .WORD 


SUNITM: . R 





¢ 
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E CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


HE PROGRAM. 


s ELALELAELELELE LASALLE RAS LALLAS SAS SLERALLAS ALL SLALAEAFSSLALLELES 


-SBTTL CUMMON TAGS 


USED 7 


COMMON TAGS 
901100 
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;;START OF COMMON TAGS 


O0000000 ee ede La 


: Cae SOSRESSERERSS EERE 
fo 


geese eesceee 


BS8SBSSSNZAARNANSMABSS Ss PRAARRTS 


GO nd ad OF Od Od Od Od Og OH Od OG ad Od Od Od Od ad Od Od od dd Ht 
an ham hem ham Kees kame eat ham an ham Lame Kart bam koa ham here eam am Lame Kam Kam am bat Late kort eam here Kean, eee ear, ham) 


a: oie 

Saar Ee 
: ausepese § 88 be 
Zot See ae 88 pe 
ral, ow eeue Sz 0 22 3 
patho Nee “ EE 
SSSSSSSSRSSSSE ce 


EEE SDE Sg BBS SRSESRSSRRSSE! 


Ree 


eh 9 od od et mae 





Ce ee te 
PEE a dedi ttc 
LQOEQ_Q_LL LOL LO EE PO FO 
hititititet ttt te fete tetes 


2 an, 


FF et ee ed ed ee Se et eed ee ee 


veh Uscneseeeseeeresess 


8 0-008 4 4 Od Ob D4 4 4 4 4S 
Ssa2aacaacaa ce cece 


PEEEEEEEEEEEEEE ES 


ee ce Se ef es os OO MUMTiINDe. oe 
PPT ITIT IT IT ITY 
S336q, 


BABS sees3 
Peecetrecterer errr 


UREN CRT ROUT 
eg ed ed OH ey 
Ee dd Od ad ee 





SSSSSSSSSSSsRRseseeeeeeeseeeeEs Ssessssessssesses 
SEOs ET TET TTTEPT POLO TEES SE See EES SS SSS 
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476 O01 : .WORD O 5;USER DEFINED 
“ 001 po000¢ : - WORD 9 s UBER DEFINED 
a8 Gols Hora 8 TEER DEFINED 
480 1 D000 «WORD Q ;;USER INED 
48} ies <WORD O ;;USER DEFINED 
482 O01 “WORD 0 : USER 
483 001 “WORD 0 3 ;USER DEFINED 
“2 lee ‘ep GER Der TED 
ae ie 
= ‘oe tee a 
00125 : . +3 
a3 Bie : 6 t MAX. PEPIN OF ITERATIONS 
433 Obieee asciz < $207) <377) (377) :rESCOPE ON — 
494 001 ASC ;;QUESTION MARK 
ie iIEA aH ip Hh: 
497 - pauauaduacanecnnuauseueussauceblsantensasansgusussoncssesaneess 
438 *STTL APT MAILBOX-ETABLE 
ane  SLLEKEAEEEEEELALL EEL LA LARA LAL LAA AAA LE LAA RA RRAS LALLA SLL A LESS 
| 502 im 3APT MAILBOX 
| 2b Mi chose BrRvAL S3PRT NUMBER 
50S STESTN: .WORD ATESTN ;; TEST NUMBER 
ous Serect: “LORD ADEVCT + EeVE 
| aH SE TABLE E.” . eueeenr et TABLE 
| Sew, Eve fein, EWinwent AOE TTS 
| sis SUSWR: WORD AUSWR ;;USER SUITCHES 
15 + WOR: -HORD  RCPUOP iTS 1S-11eePU TYRE 
e18 is Lighe0 11705202, 11720=03, ,11/40=04, 1145205 
| e26 te. BIT 1 ct 
| 1 * BIT 9=FLOATING POINT PROCESSOR 
| 6&2. oi BIT 
| 6§23 001326 000 $MAMS1: AMAMS 1 ssHIG HS. BYTE 
! eet 001327 000 SHTYPI: BYTE AMTYPI jit od Type Btkel 9 gta 
HP 
| 258 te ae i Bipot af-o02 
| Bs 001330 000000 éhaoR1: WORD AMADRI HIGH ABORESS, BLK 
255 + ees os “ ADDR. ae "BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
| $31 001332 000 $MAMS2: .BYTE AMAMS2 ;;HIGH AODRESS,M 





a ee te + re eee ee ~ oe er nee ne nee 
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: .BYT 


BYTE 
Bue 
pH 
“HOED 
WORD 
“HORD 


FRLoRHS ROAR OL 


S888888Sssssss 


= b= b— b= = = & Bo bm Pf = pope 


paar batt cigs 








R-LREY”ROORESS, BLKz 


; Hh ADDRESS , M 


anche 


i SHIGH 56, 11.5.BYTE 
: STEN, LAS ee a 
cM FATERRET WeCTORUL Bis, peroenryg 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
HOEVICE hep DESCRIPTION WORD#! 


















ERROR POINTER TABLE SEG 0046 
-SBTTL ERROR POINTER TABLE 
;*#THIS TABLE CONTAINS THE INFORMATION 4° EACH ERROR THAT CAN OCCUR. 
otal lon STEMS Fa PE TRUMEER INDICATES ES MiNICH ITEM IN RHE TROLE is PERTINENT. 


sanoTEL: "Estee i Fue TABLE ‘CONTA NE POINTERS. EXPLAINED AS FOLLOWS: 
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3% EM ;;POINTS TO THE ERROR MESSAGE 

3% DH j POINTS Bi; pate HEADER 

;# DT + :POINT 

Had DF POINT 8 THE DATA FORMAT 
001360 SERRTB 





Gu PES ty PIS AM ESB 


ee: Bete Sil on pet ant Br Bs 
BRE TO TYPED. FT ARY OF THE POINTERS ARE NOT NEEDED. FORA 


USAGE OF THE ERROR TABLE 1S S TO A TABLE ENTRY FOR 
E MESSAGE THA 0c N THE INTEREST OF ECONOMICS 
OF CORE MEMORY, THIS PROGRAM USES THE ERROR TABLE IN A 
IGHTLY DIFFERENT MANNERS AS DESCRIBED BELOW. 


ERROR_T ENTRIES UP A FORMATS THAT ARE USED 
iE TeeouGouT Tie Da MEN a on TS 0 fe € CHOSEN FROM 


aa The Fret Renee UORD 10” CONTAIN 


ASCIZ STRING THAT 
TION OF THE REPORT. THE DATA FIELDS at THAT ENTRY AR ARE NEVER 
CHANGED, NOR ARE THE COLUMN LABELS OR POSITIONS. 


THE FORMAT THAT EACH TABLE ENTRY PROVIDES IS SHOWN BELOW WITH .- 
THE DEFINITION OF THE ENTRY. ALL DATA FIELDS ARE TYPED IN OCTAL. 






Whe ORC Bh he ORC Be BOC OC he ae Bc Be WOK RC BO aie aoe Re ee oe nec 2c 
P w 














*ERROR ITEM 1 
3% (MES ) 
+ TST NUM ERR PC DRIVE 
+" STESTN SERRPC DRVNUM 
001360 900000 EMIN: .WORD O 
001362 0536 bHO0} 
001364 o5524 7001 
i 001366 055334 DFOO1 
| 597 *ERROR ITEM 2 
z to theseage) 
20 ce TST NUM ERR PC DRIVE 
601 os STESTN SERRPC DRVNUM 
602 Lt RKCS1 RKCS2 RKDS RKER  RKASOF RKDCYL RKDA 
| 
{ 
i 


RS 


R611 _— CONTROLLER DIAGNOSTIC 
POINTER 


SeaeReS 


POO OOTrrwron 
0 B= 0-2 2 0 b= fn fo ho pe 


OWONWUILL Wu O 


FAAS OBIE OS BUC oes 


ee ee Te oe 
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T.cS1 1.052 1.05  1.ER  T.ASOF T.DCYL T.DA 


ce CSe RDS RKER RKASOF RKMRI 
T.CSl1 1.052 1.05 1.ER T.AST T.MRI 


ERROR ITEMS 4,5,6,87 ARE USED BRE THE RESULT 
Rare eae obi eae fe THE EXPECTED 
HALAS REESE Soe, 


RELIED IN pile pea i THE CIRCUMSTANCE FOR THE REPORT. 
HE REPORT W OR MORE OF THE FOLLOWING 


i az 


ng fan we ARE reeds THAT DID NOT SET IN OPERATION:” 
ERRORS SET IN OPERATION:” 
ABOVE ARE ERRORS “oT IN OPERATION:” 


Ciy Je exae ANY ONE OF Mr Ae de Cast LIne Ho Rates Tet 
TOENTIF Tes THE OPERATION BEING PERF 


RON-EXTSTANT. DRIVE 


ae ERRORS SET IN OPERATION: 
TONAL LINES OF INFORMATION) 
THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION. 


ane 


wa; 


fe 


ee 
shad 


ISTANT DRIVE 
BRE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 
LINES OF INFORMATION) 


THE RESULT OF AN EXPECTED ERROR THAT DID NOT OCCUR, I.E. 
ISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET. 


. 


Te] 
Ss 


= 


- 
me 











ee . 
® 
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DoREKB. PL ERROR POINTER 1 


XAMPLE: 


“4s -« el 
Bz s575 
“nm 


ee ee ee ek ke 8 EE Ee Se oe eS SE eS Se ee ee ee as 2 


: 


SSSRRRLEO SEER EOE Baal Iolo Jono e eGR EERE S 


ae “We me he Bh oe ee 


SEG 0048 





“EXISTANT MEMORY 
V ARE bores ERRORS SET IN OPERATION: 
XPE 


Y 
ABOVE ARE CTED ERRORS THAT DID NOT SET IN OPERATION: 
TIONAL LINES OF INFORMATION) 
S_AN EXAMPLE alate MEMORY BEING SET WHEN UNIBUS 


CS1 RKCS2 RKDOS #RKER RKASOF RKDCYL RKDA 
. ° T.ER T.ASOF T.DCYL  T.DA 


T.BA =s TWA 
B00 AD1 B01 AD2 B02 AD BO3 
SREGIO SREG11 SREGI2 SREGI3 SREG14Y SREGIS SREGI6 SREGI7 










THE REPORTED BY THIS FORMAT ARE: 
C DETECTED DRIVE BUS ERROR 
od eA DRIVE BUS E! 
CUTABLE DRIVE FUNCTION 

paths IMING A 
DRIVE UNSAFE / 
SA rey os . 
Aiea 
LLEGAL DRIVE ADDRESS ERROR 
Dave Ty L 
ORT 

ITE LOCK ERROR 


-WORD 0 
.WORD 0 
Atta 
004 
ERROR ITEM S 
THIS ENTRY IS THE at AS ITEM 4 WITH THE ADDITION 
OF A MESSAGE THAT FOLLOWS. THIS MESSAGE IS: 
“ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID” 
THIS REPORT WILL BE PRINTED WHEN THE GATHERING OF DATA FOR 
ACO THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR. 





i nn i ee ee 
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DGRGKB-PLi “ERROR POINTER TABLE 


001424 055250 
& O014e6 055420 


a ee ee ee ee eS Ee oe Se SS 


m SO COCO SO SESS CE SE SE SESE Ss GES eeee eee ees 


: 


Sees SS Se Se Se Se SETS St St Stee Se we wesewe we wee wee 


ie £8 Se eS SS SE ES EOE ES EOS EE 


m 
2 


SIPRTER STUER SSAA TGoE SARA TOROS MON oN Tests 
3 


“I 
o 
wo 


a 


SEG 0049 


0700S 

DF OOS 

ERROR {Teh 6 

(DESCRIPTION OF ERROR) 
ERROR IN OPERATION 
(DESCRIPTION OF OPERATION) 
TST NUM PC DRIVE 


STESTN SERRPC DRVNUM 
mat RKCS2 RKDS RKER RKASOF RKDCYL RKDA 





RKBAS T.CSe 1.0S T.ER T.ASOF T.DCYL T.DA 
T.BA T.WC 


THE ERRORS REPORTED BY THIS FORMAT ARE: 
DATA CHECK 
WRITE CHECK 





RKER RKASOF 
-CS2 7.05 1.ER  T.ASOF 


THE ERRORS eee BY THIS FORMAT ARE: 


UNIBUS PARITY ERROR 
ILLEGAL FUNCTION CODE 


DESCRIPTON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR ILLEGAL 
-WORD OQ 
-WORD 0 





ERROR ITEM 10 
(DESCRIPTION OF ERROR) 
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DZR6KB.P11 ERROR POINTER TABLE 






771 # ERROR AT COMPLETION OF OPERATION 

oe : * {DESCRIPITON OF OPERATION) 

774 * # siEsTh E VNUM 

775 # XPT 1S 

278 i SREGIO SREG11 

778 % THE ERRORS REPORTED BY THIS FORMAT ARE SOFTWARE DETECTED BY 
a3 ii COMPARING | EXPECTED RESULTS WITH ACTUAL RESULTS. THE SPECIFIC 
781 % * INCORRECT 

782 2% BUS ADDRESS INCORRECT 

783 + CYLINDER ADDRESS INCORRECT 

784 i SS INCORRECT 

28S 1% SECTOR ADDRESS INCORRECT 

787 001450 oD0000 EM1ON: .WORD O 

788 001452 054531 DHO1O 

789 0014549 055320 DTO15 

730 001456 o55520 DFO10 

792 3% ERROR ITEM 11 

793 2 (ERROR INDICATOR OR STATUS BIT) 

794 Le NOT SET AS A RESULT OF 

795 + (ANOTHER ERROR INDICATOR, STATUS BIT, OR OPERATION 
7% :# TST NUN ERR PC DRIVE 

797 *# STESTN SERRPC DRVNUM 

798 + RKCSL RKCS2 RKDS RKER RKASOF RKMRI 
733 + T.CS1 7.CS2 1.05  T.ER  T.ASOF T.MRI 
801 001460 o00000 EMLIN: .WORD 0 

B02 O01462 OS46SS DHO11 

803 001464 055250 DTO10 

age OO1466 OSSS40 OFOL1 

806 3 ITEM 12 

807 + THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
B08 2 “NOT RESET AS A RESULT OF” 

810 001470 o00000 EM12N: .WORD 0 

811 001472 054704 DHO12 

Bl2 001474 oSseS50 DTO10 

813 001476 OSSS40 DFOL1 

815 .# ERROR ITEM 13 

B16 + THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
B17 # “SET AS A RESULT OF” 

819 001500 oo0000 EMI3N: .WORD O 

820 001502 054735 DHO13 

821 001504 o55250 DTO10 

Bee 001506 OS5540 DFOL1 

bes + % ERROR ITEM 14 

825 + THIS ERROR IS 

B26 + “RESET AS A RE 


; O_o 


EE EE OEE EEE EEE OEOOEOOOOOOOOEEOEEEeeeeEeEeEeeeeeeee ee eee eee a... 


en a ee 3 ee ew. 
i 
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OZR&KB. ERROR PO ATER TABLE : SEQ 0051 


827 151 EMIYN: .WORD 0 

B58 zit Bewre0 HOI 

829 DT010 

Hy Spiele beegae OFO11 

Hed ;# ERROR ITEM 15 

g Ss (HEADER FORD MISCOMPARE) OR (DATA MISCOMPARE) 
834 3% TST NUM ERR PC DRIVE 

835 i STESTN SERRPC DRVNUM 

836 3% 00 NUM 

B37 :+ SREGIO SREG11 SREGl2 

839 001520 EMISN: .WO 

ae Bo he 

as pts SSée DFO1S 

844 3% ERROR ITEM i6 

ee 3% ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 1S 
847 001530 0 

848 001532 Oo00000 0 

B49 001534 055326 DTO1SA 

ee 001536 055572 DFO16 


= ee ee we nee 





pecs 


S888888ssssssss 


bb a bh fe ps ph pe Re pe 





SEMANAS AAS aad Hail aut é 


S88 S8888S888ES 8 


600 
602 
604 
606 
606 
607 


@ 

33 
Re eee eee 

bealealeal sal 


aad 
oO £MoO 


Mee f= bo 


co 
=s 


$88 


Bseee 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYL1 27(732) 
D P REGISTER STORAGE FOR TEST 


I: 
SRTFLG: 


DRVNUM: 
DRVBIT: 
ERRCNT: 
ERRLMT: 


BSFe4P: .WORD 


BSF 26P: 
BSSe4P: 
BSS26P: 
BS26CT: 


OPTFLG: - 
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SEG 00S2 





REGISTER STORAGE FOR TEST 


= 

o 

P*] 

o 
ONOOOOOOOOO000000 


REGISTER SETUP STORAGE 
- WORD 0 ;PRESET WITH INTERRUPT ENABLE 















o 
~< 
Q0o0000 oo- 


.WORD 0 “ sRK VECTOR 

“WORD 0 :RK PRIORITY 

“WORD OO ;START FLAG 
0 = 200 


:. Z = 214 


= 204 
; RIVE U UNDER TEST 
-WORD O WORD TO STORE Sit TO INDICATE DRIVE UNDER TEST 
-WORD #D20 7ER ROR COUNTER TO LIMIT ERROR 
ERRORS REPORTED IN PROGRAM 
-WORD tD20 * DAT A COMPARE ERROR LIMIT 
BS24 ;POINTER R, BAD SECTORS 24 SECTOR MODE 


(FACTORY) 
-WORD BS26 ;POINTER TO, Bao SECTORS 26 SECTOR MODE 
-WORD O ;POINTER TO BAD SECTORS 24 SECT MODE 
(SOFTWARE) 
-WORD 0 {POINTER TO Ad SECTORS 26 SECTOR MODE 
coun ; OF Bap SECTORS 26 SECTOR MODE 
; COU ee D SECT pee 24 SECTOR MODE 
0 count 0 APPROXIMATE 1 nant LL SEC 
; OUN Te FOR MYTIME ROUT 
;OPTION FLAGS 






Q BE TESTED FLAG 
EPORT FLAG 
S FORMAT SWITCH 


K PRESENT 
SLINE CLOCK TICK COUNTER 


BOS 
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O-tuUmMn wor. woe 
ed ee ee ee ae oe 
40-0 04 04 4 40-6 00 6 
MDOOOOMOOMMD 


PROGRAM DEFINED VARIABLES 


os 


O19) F iN. MO 
Son bam bok bon bandon pa ban ton bon 
PAPA MOPOOwWo 


FUNCTIONAL CONTROLLER DIAGNOSTIC MACYL1 27(732) 


RABL1 


OZREKB.Pi2 





3 
2 
w 
8; 
= 
= 
z 
8 
z 
Ms 
3 


: 


Ee 
au 


a 
a 





ION HOLD 


ON 


t 


CONTI 
;DESTINA 
>SOURCE HOLD 
*MMI1 VECRTOR 


T 


2 
" 
« 
E 
’ 


;WORD NUMBER IN ERROR HOLD 


;MM11 ADDRESS 


Tox wo 
a ae 
aoe 


: Bee 


Ba Ge ae 


mest: 


Se heme Kat hem Kom Ate kee Kam Ko } 


888888888 


pene 


ee reer me ee 


é 
g 


oe ere ae eee eRe 2ST meee <= ae 
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PROGRAM DEFINED VARIABLES SEG 


a 
oe 
eo 


~S8TTL PROGRAM SETUP 


te em ee ee te ne ee ee oe ee eee 1 | 


SERRRES Reo sa tou Sano Re NOR Coe CMSs Se R Eee SORE é 





001706 912737 pooco2 001624 SETCLK: HOV #2, SRTFLG SET START FLAG FOR CLOCK ADJUST 
901716 01 237 000001 001624 PARM: HOV #1, SRTFLG sSET START FLAG FOR PARMETER START 
001726 012737 177777 001624 RESTRT: HOV s-1 ,SRTFLG ;LOAD START FLAG FOR PARMETER START 
001736 005037 001624 START: CLR SRTFLG CLEAR START FLAG 
001742 STARTI: RESET RESET THE WHOLE SYSTEM 
poten t einer HOV SPR? teP) HINETIaL Ze ies bck OUT ALL INTERRUPTS 
001754 Ole746 001762 MO #1$,-(SP) ; LOAD START OF PROGRAM 
001760 000002 RTI LOAD PSW 
001762 004737 o42122 1S: JSR PC,STKINT ai sNITIALIZE KEYBOARD 
-S8TTL INIT 12 ie. tt 
CE Oe ne CornoN GHRION TAGS 
001766 012706 001100 HOV eSCHTAG ;;FIRST LOCATION N 10 BE CLEARED 
pea SOS ORE 001140 CMP . ; ;DONE? aon 
N02000 001374 ‘ ;;LOOP BACK IF NO 
002002 012706 001100 a. Aftoy. . ig! BCK SP 3:SETUP THE STACK POINTER 
002006 912727 030514 oog020 *” MOV 8SSCOPE, JSIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
002014 O1 nonoee MOV 8340 guloTve +2 53 
Brsess bises7 GBOSeD boobSe NOV SRO DOERTUC CAS LEVEL Poor Ot ERROR ROUTINE 
Bas fice Goes Bae || Bauch aver ron mor cas 
ot HOV OSPURVEC 5 ;: POWER FAILURE VECTOR 
Baste ne SE: MOV sera, seorct : ae “PROGRAM COUNTER 
poco? OO lebe cLR Hi $3INI INITIAL cau oh OF EER NONE 
104 eee 000001 001115 MOVB ai SERHAX 
ie Sle? 3? O02112 001106 MOV s., rag ITIL! cad PEDRESS. FOR SCOPE 
1 1 002120 001110 MOV ‘ 
3;SIZE FOR A SWITCH melt” OLN OR iris ie 
>;EQUAL TO A FOR A Sore 6 
Que 12% 013746 MOV C,-(SP) 
132 12737 021 00004 MOV 4S a C $:5eT ee ETS 
0021 1673? i 001140 MOV SWR 33 F SWICH REGISTER 
002146 O1 177570 001142 MOV #DDISP, DISPLAY :;AND A HARDWARE DISPLAY Re REGISTER 
boe154 ipa37y 176756 CMP #-1, aSUR :3TRY TO HARDWARE SWR 
162 001012 BNE 665 j BRANCH af HOURRE SiR TS Nb OCCURRED 
002164 000403 BR 65S + BRANCH IF NOT c 
002166 012716 002174 64S: MOV #65S, (SP) SET UP FOR TRAP RETURN 
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DZR6KB.P11 INITIALIZE THE COMMON TAGS SEQ ocoss 
990 o02172 opo002 RTI 
33 002174 i273? 000176 901149 65S: Nov SUR ot ay :sPOINT TO SOFTWARE SWR 
333 pessta BisZas 90o004 66$: MOV rit nec DIS ;;RESTORE ERROR VECTOR 
995 002214 005037 001304 CLR SPASS :;CLEAR PASS COUNT 
ox 136737 000200 001317 S178 SORTSIZE, SENN; is TEST ST USER. SIZE UNDER AP 
a8 O522 012737 001320 001140 a MOV #SSWREG, SWR NO. ube APT SWITCH AECISTER 
1000 -SBTTL _TYPE PROGRAM NANE 
1004 TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
i 0022% 005227 177777 INC #-1 ssFIRST TIME? 
1003 O02242 OO106S BNE bes *:BRANCH IF NO 
1004 O02244 022737 O301S2 oD0o4e CMP #SENDAD, as42 seecT 1? 
1OOE possen ee roeuoL po2322 POPE OPes OR . aoht2 STRING 
1007 .SBTTL GET vawut” Por SOFTWARE SUILTCH REGISTER 
1008 005737 ocoo42 TSI site i 3BRE WE RUNNING UNDER XXDP/ACT? 
1616 Giesee Tavs? onisie cono = Ere Wsel «He RUNG UNDER PT 
1012 002276 Geare? 001140 000176 ch SUR, #SUREG SOP TuARE SUIT REG SELECTED? 
1014 104406 GTSWR :GET SOFT-SWR SETTINGS 
10!S 002310 00403 BR 71$ 
1016 002312 112737 O00001 001134 708: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
1018 002320 000436 “> 685 T OVER THE ASCIZ 
1019 * jib08: SASCIZ <CRLF>#RK611 euntt Sona CONTROLLER DIAGNOSTIC MAINDEC-11-DZR&KB*<CRLF> 
i021 neta 132737 000200 001317 "- BITB = &BIT7, SENVM sTEST IF DO NOT SIZE 
Gee 002424 001043 BNE YES - SKIP 
Ges ree teaver herae 000740 Cr SS TBK- 4740 3 MAKE SURE MEMORY IS SUFFICIENT 
1026 Ooesie 104401 O4S646 TYPE *MESSAGE (NOT ENOUGH MEMORY) 
1056 tobi g? heres] enele iP i nies 2 escna 
1029 POSED | 13700 0305ie2 2s: MOV SLSTBK,RO GET LAST BANK 
ibar Bosdea pisos Boost Hoy srétAp. Ra BET CAST Aspares 
13s 74 CLR RG OC He FOR OVERFLOW 
1033 030244 TST SKT11 : MEM PRESENT? 
1034 BPL ess 2NO = SKIP 
| 1035 228: ASL *SHIFT BANK LEFT 
1036 ADC RY : N CARRY » 
| WE ees ea eB {DECRERENT cout . 
| 41039 14 BIS RO,R3 SET BITS IN ein N LAST 1 ROORESS : 
tt se it pongo; OOlse? 23s: BOM eaet y ADDRESS 
{DME bt ree MOV Ba SuapRt A LORE re 
1043 H Bie 000010 001656 3S: BIT SSRTINS, OPTFLG  j sTEST IE IF ALREDY REPORTED 
| 1045 002544 {04401 046637 TYPE  ,OPROJ6 * TYPE STARTUP INSTRUCTIONS 
| 
} 
i 
{ = = 
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DZR&KB.P GET VALUE FOR SOFTWARE SWITCH REGISTER SEG 0056 





1046 — 052737 000010 o01656 a BIS WSRTINS,OPTFLG ;SET REPORTED FLAG 
1 000001 001624 * OMP #1 SRTFLG ;CHECK_IF PARAMETER START 
ios 4 0011 BNE t NO, START TESTING 
1 104401 045537 Ss: TYPE OPROO1 “TYPE "RK611 Bus RODRESS ( ) =" 
1081 oar 001352 MOV $BASE, -(SP) t . SAVE SBASE FOR TYPEOUT 
ies 002576 ! Typo ig G0 TYPE--OCTAL ASCETLALL DIGITS) 
1 Bast — ROOCT =’ — GET VALUE 
1055 Biss Ibe 001222 MOV (SP)+, STMPO 
1056 doeb 1 BEQ 75 CHECK IF <CR> 
1087 1 Dee? 37 160000 901222 cH #160000, STHPO ‘CHECK IF IN I/O PAGE 
tim: 
001222 001352 MOV STMPO, SBASE sLOAD NEW BUS ADDRESS 
1066 Giese 10K} 045574 7S: TYPE OPROO3 *TYPE "RK611 VECTOR ADDRESS ( ) =” 
1061 13746 001346 OV SVECTI.-(SP) | :GET SVECTI FOR TYPOUT 
106 002642 OMe? 16 160000 BIC #160000,(5P) ;CLEAR PRIORITY BITS 
ibes boseso pMMOT ONSSEE TYPE, OPROO2 
1065 SoebS 1044 RDOCT GET VALUE 
1066 01 001222 MOV (SP)+, STNPO 
1067 OO0cbb2 dolvie BEQ 10S sCHECK IF <CR> 
IDES poeeve Ipizey CUl00O oleee Sos | PRTC STMPO HECK IF LEGAL 
1 74 1346 IC 417777 SVECT! CLEAR OLD VECTOR 
it Boeros tssa? Bay 55 oe te sited, 8 $VECT1  $LOAD NEW VECTOR ADDRESS 
107¢ neat 104401 108: aire ty :TYPE “RKG11 PRIORITY ( ) =” 
1 16 reat 001347 VB $VECTI+1, (SP) 
1075 O0e722 O0b216 RS (3p) ;SHIFT S BITS RIGHT 
. 
(SP) 
a | 8 
104402 TYPOC 
iowie onan BOOeT solimaes ;GET VALUE 
iz t 001222 MOV (SP)+, STMPO 
14 BEQ 188 ;CHECK IF <CR> 
000007 001222 ch 87, STMPO *CHECK IF LEGAL 
000004 001222 eh oe 
e771 I o$ 
5776 ; 00 fat i ;SHIFT S BITS LEFT 
fae ter 3 ie 
rat 2u? cTA+ OLD PRIORITY 
nee 150000 tM? fig HE «LBB Rx RK611 PRIORITY 
0303, 047 yee iSS: J3R 1 SETUP vector Fon Use CLOCK 
ie Os 1 Bical SRIEAR PRIORITY BIte 
10305 pt 10 Cae MOV RO, AVE (RO) =; SETUP IN TERRUPT ADDRESS 
003056 1137 1347 O0i622 MOVB SvEcTiel, RKPRI ;STORE PRIORITY FOR USE 
} 





ee em ee ie we ee ee ee eee we ee 


| ee ceneeeneneneneenens 
| RKG11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYI1 27(732) O1-OCT-76 10:50 PAGE 24 
; OZR&KB.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER SES 0057 
OC3064 O13746 001622 MOV RKPRI , - (SP) ;SET PRIORITY 
003070 Ole746 003076 fey #16$,-(SP) 

a A 9. or ST I 


1103 
118s B030%e ssa 163: 


ee a eee ne ee ee em eee ee oe eee. 
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.SBTTL %**BASIC INTERFACE AND OPTION TESTS 
as; tant be aan ae a 
:# CHECK THAT Reet POP Ee Ll BASE ADDRESS (RKCS1) DOES NOT 
te A NON-EXISTANT MEMORY TRAP. 

ee ene ee 






003076 t§ 
matte biera? 000100 001262 MOV #100, STINES ; 400 400 ITERATIONS 
00: is 8 1 eect HOV 84.Ri ieee BOINTER TO VECTOR 
003116 012146 MOV (RL)+,-(SP) *STORE OLD VECTOR CONTENTS 
903129 DLILH6 MOV (R1),-(SP) 
0031 12701 oo0004 MOV #4,R RESET POINTER 
003128 alert Sans HOV WNEXINT | (RL)+ sSeT VECTOR wo NEM TEST HANDLER 
dk 16744 : HOY SBASE Re HEET POINTER 10 PKI BASE ADDRESS 
air e NTERRUPT 
Ooi 127b¢ rie oooc00 HOY #0,RKCS1(R2) {WRITE CS1 TO SEE IN NEM WILL SET 
003156 NOP 
ie ae me Bi ER TE GT Ih da 
0031 1411 Q 1S tYES - SK 
003170 012727 OS00S7 001360 HOV $EM1,EMIN “MESSAGE (NON-EXISTANT MEMORY TRAP ERR) 
ieee 399) o00001 030112 MOV $1, SEOPCT FORCE END OF PROGRAM 
ORE Neca Sap0oe 1S aOV ser RESTORE VECTOR 
esta BiSeit : MOV (SP)+, (RL) : 
003220 012641 MOV (SP)+)-(R1) 
Ee EE TERRUPT VECTOR ADDRESS fect ee 
, 


T VECTOR ADDRESS TEST 
3% CHECK THAT THE INTERRUPT VECTOR FOR THE RK611 IS SET TO THE 
3% CTED ADDRESS 


(an bn an an Be Bn Ban Be Bn en be Be se bn Bw em ee ee ae ne Pe ae He Pe Pn Be He Hn ee ae Pe ne ne ne Pe Pe Pe ne ne Hae Pe ne Pe Po hae 0 Pen bs b-2 be pnw Hus Pee Pes Pe Be 

aes bn Ban be ae Be ee Bae Be Bae Bw Bw Dene Bae se ne an ae fw nn Benn ne ns bene 8 Pe Pn fe Hae Hua Hae ne Pmt bas Pe Ps Hne -w ene Hs Pe ne eho Hae oh —0 Hae Pun Be fms Ge ae Hae Ge 

COE SEVER REUSE SSSFHESHASSBVKREBREBBR VRRP SVB isw Nou ewr-o ees 
=~ = “N wre OD NIG U £ UIT 


MPTTETTTETTCSTTSTOITTTSSTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TT 
000004 tSt2: SCOPE : 
003224 012737 000100 o01262 MOV #100, STIMES D0 100 ITERATIONS 
003232 Ol2762 005000 O00010 MOV SCLR,RKCS2(R2) ; fEAR SUBSYSTEM SPECIFICALLY TO 
CLR INTSET “CLEAR INTERRUP 
riety Weed rend ooo000 MOV AND YTTE, RKCSI(R2} ;WRITE CS1 TO FORCE INTERRUPT 
003252 o00240 NOP 
NOP 
fe 001662 TST NTSET ;TEST IF INTERRUPT OCCURRED 
Boseee 405737 001103 Pete RFLG TET re Peete AC RERDY SET. IF SO THE 
tTATERRUPT LENT 0 THE WRONG VECTOR 
; BEEN REPORTED. 
90327e 001004 BNE 2g *T = EXIT 
012737 050057 001360 HOV sEML MIN *MESSAGE (NO INTERRUPT) 
ee Ole7at 1 030112 2S: MOV #1, SEOPCT sFORCE PROGRAM TO ABORT 
bos31e 1 4 INP stop” . 
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RK611 FUNCTIONAL 
OZREKB.P11 INTERRUPT VECTOR ADDRESS TEST 


wa 
SSSSFRLE 


BEGRRLSHSSEIRR ESE Sa Voto wa 


tururururulfvrorur 
ot 


ONOUL£W--O 


.SBTTL ##STATUS VALID TESTS 

s3 HFEKELKEKRERHRA EE RAL ELSE HELE LE RL ELLE LLSREL ELE LSE HAE EA HELA ELE LES 
jATEST 3 SELECT ALL DRIVES 

* IF NOT RUNNING IN APT AUTOMATIC ENVIRONMENT, 


SELECTING ALL DRIVES. IF NON-EXISTENT DRIVE REPORTED 


MAKE STATUS yy IS RESET. IF DRIVE 
PRE SURE RR 


EXISTS, DRIVE 
1S eYCLED UP, AND STATUS VALID SET, AND DSC RESET. 


F ING IN APT AUTOMAT IRONMENT, THE DRIVES 
TRENTIr IES N PTRBLE ARE any FOR NO ERROR, DRIVE 
CYCLED UP, AND STATUS VALID SET. 
F LOCATION 41 INDICATES THE XXDP MEDIA IS ON 

06, DR TESTED 


— 
“_ 


THE RK IVE 0 WILL ONLY BE I 

START (214) WAS USED. IF THE AUTOMATIC START (200) 

IS USED, DRIVE 0 IS NOT TESTED. THE RES 204 

WILL RETAIN THE TEST STATUS OF DRIVE 0. 

IF THE PARAM START 1S USED THE OPERATOR 

ITHER PLACE DRIVE O OFF LINE IF IT IS NOT TO BE TESTED 

OR UNLOADED AND A SCRATCH MEDIA MOUNTED IF IT IS TO 

BE TESTED. THE PROGRAM W HONE TOR OFF LINE AND 
ID 10 DETERMINE THE ATUS OF DRIVE 0 

THE DRIVE MUST BE ON-LINE, CYCLED UP AND WRITE ENABLED. 

16 ROT 551 Te EXPECTED 10 BE OFF-LINE. COORESSING 

THAT DRIVE SHOULD CAUSE NON-EXISTANT DRIVE ERROR. 


AT ION OF TEST 
a meScAce MT Be GIVEN TO IDENTIFY THE DRIVES TO BE 
USED IN TESTING. 


nes TH TESLA at LST sro 


© JHHHHHHHEIHEHHHHHEHHEHHHHBHEHHHHHEHHHEHEH HHH HEHEHE 


t13 


WC WRC BRC BRK DRC OC RC ae DRC ORC aie ote Oe ae Bie ae aie Oe aoc Oc oie Oe oie aie eC Mee ade 28 ae ge ope ic 


-_ #50. ,STIMES 3,00 SO. ITERATIONS 
TSSINIT ;CALL SUBSYSTEM CLEAR AND TEST 
ERROR 3 
MOV ;SET PROCESSOR PRIORITY TO ALLOW 


#PRO, -(SP) ; 
MOV #1$,-(SP) 3RK611 INTERRUPTS 


1S: MOV —- RKVEC, RI “GET VECTOR 
roy INTHE (R1)+ ;LOAD INTERRUPT VECTOR 
#S0E 


RL) 
YM, R3 ;GET ADDRESS OF DEVICE MAP 
s TEST IF FIRST PASS 

p 


Vv 
TST SPAS 
NO - SKIP TO DRIVE SELECT TEST 


BNE 7$ 












SSRRPONe Ss 


Gt ht he Bs Bs Pa he pe hi 





a 
Sty 





mre 





SRE 





ee en ed ed ee ees oe ee ed ed 
Denna yey py 
; fie 





Seineoehipietebeeonnionoaot 





as Be Bn 


BEI RARER 





3 





32737 
1402 


a 


aL: 


— ee fo 


es 


8 


a 


eau 


8 
é 


£2 So 8 
Me 8 5 


= 
cs 
N 
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000200 
003734 
000041 


100000 
010000 


046067 
000001 


001232 
177777 


000001 


000001 
000001 


Bo0i01 


001317 


000013 
001624 


001656 


001600 


001540 
001550 


001656 


001SSe2 
001232 


001552 
001656 


001656 


001600 


es: 


3$: 


4§: 
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Bed 


BIS 


nov 


BIT 
BEQ 
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#BIT7, SENVM 
32S 

ll 

(R3) 

a#41, 813 
He SRTFLG 


iB OPTFLG 


4 ;0RS,6,7 


Y,T.0S 
sDOTST, OPTFLG 


RO 
#1,R1 


#DOTST, OPTFLG 
9S 


TSSINIT 
ERROR 3 


MOV 
MOV 
TLOADRK 


BSELORV,L.CS1 


; TEST IF SHOULD SIZE 
sYES = SKIP TO DRIVE SIZING. 


;CLEAR DEVICE MAP 
sTEST IF RKO6 IS LOAD DEVICE 


:NO = 
sHeS START AT PARAI? 


0 Eat © PME serve 0 
SSAGE - SWAP PACK ON DRIVE OFF LINE. 


Etat PE MEeas  sutt 


;LOAD FOR SELECT 
;LOAD RK & DO SELECT 


;WAIT Acs poe COMPLETION 
NOT DONE ON TIME 


3GET RK_REGISTER 


onl 
" 
ms 
~ 
— om 
zw 
us 
8 
=z 


Le *STATUS 
INDICATE READY WENT LOW 
AGAIN 


= do GET STATUS AGAIN 


ELSE SET DRV O TEST FLAG. 
AR FOR DRI COUNTER 

cee BIT O 8 ORIVE SELECTOR 

sTEST DRIVE 0? 

*NO = SKIP, 


;INITIALZE SUBSYSTEM 
sERROR IF NOT SUCCESSFUL 
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OZR&KB.P 


es 
65 


Bai 


ier 

1 44 ; TGETRK 
1599 46 100000 001540 att 
iser z 1017 no0e00 OD1Ss2 ane 
BB Bee BLS como cose | ft 
1582 1001 BNE 
: 003676 050113 BIS 
i 003700 9$ og 
1 Bo3704 i 000400 B 
is ei Sk 5 
1 “ 

1294 003714 032737 010000 OO1SSO 10S: BIT 
1295 003722 001366 BNE 


3 


i 1 

He ee tae 

He Ae WED ome 
1 003732 I 
oe DO374E TST 
He bee tia 
He Bee Hee BE cone =e 
1308 1 JMP 
1311 003770 012701 000200 12e$: MOV 
ists 003774 012700 MOV 
aia 004000 104401 O46e4e TYPE 
131 3 138 BIT 
Hit SG ve 
3 004010 148: DEC 
1 004012 ASR 
| OO4014 001 BNE 
‘ 004016 00041 BR 
1 010037 003730 1S$: MOV 
1 Boao 052737 000060 003730 BIS 
i 004032 Ie 
i, Be ye 
i BR 
1 004044 CLR 


BRSRERERSE SS 
Bs 
é 


16S: 





Carer ee ere meee ees -- -< -_- - 
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10442 TWATI6 
1oa003 ERROR 2 


1” aa 
#ORDY,T.OS 
9S 
#WRL,T.DS 
9$ 


;WAIT FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 


T RK REGS 
Faron 
sYES = SKIP 
;ELSE ad IF DRIVE READY 


$ELSE TEST IF WRITE LOCKED 
;YES - SKIP 


R1,(R3) ;SET BIT - DRIVE PRESET IN MAP 


Ri 
#BIT8,R1 
8$ 

11S 

#NED, T.CS2 
9S 


;ORS,6,7 


eg a SELECTOR TO NEXT DRIVE. 


‘tte LB0P. TO SELECT NEXT DRIVE 
;WAS CERR DUE TO NED? 
;YES - BUMP TO NEXT DRIVE 
;ELSE REPORT THE ERRORS 
A SWITCH - IT NEVER GETS EXECUTED 
ST SWITCH 


if PLUS - SKIP pare TEST MESSAGE 
sELSE BUMP SWITCH TO PLUS 


1 BR JF AGT AVAILABLE? 
ELSE REPORT NO Daves AVAILABLE 
ee par END OF pass 
;SET DRIVE SELECTOR FOR DRIVE 7 
;SET DRIVE 10 7 
; TYPE PREFIX TO DRIVE TEST MESSAGE 
a IF Tus DRIVE TO BE TESTED 
SE _DECREMENT DRIVE NUMBER 
rae BIT SELECTOR Ly NEXT DRIVE DOWN 
F NOT SHIFTED OUT - 
sELSE GO TO STATUS VALID TEST 
iAP i NUMBER IN TYPE LOCATION 
;TYPE IT 


;TYPE SOME SPACES 
sLOOP 


;CLEAR DRIVE NUMBER COUNTER 





SES 0061 









1 

1 

| 

: wore 
ee: 
HS coun 
est 
HS Bus 
iB 

1 004122 
ee Bie 
1351 1 
isos BON 32 
1354 004134 
1355 004142 
138 004144 
1 004152 
1358 O04154 
ges 
HB Bie 
i Bais 
1364 1 
He ur 
ie Be 
13 004212 
1371 o04214 
1374 O04224 
BF me 
1 004, 
i 

He pes 
1382 O04244 
1383 O042S2 
1384 004254 
1385 

1386 004256 


Bae 
ba 
me 


ee 


; 


cee 


a 


=4 
8S 
93 


000103 


000100 
052144 


040000 


001240 
001630 


17S: 


001600 


001552 
G01400 
18S: 


198: 


001552 
001400 


001600 20S: 


001552 
001400 


001552 22S: 





MOV 
MOV 
MOV 
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TSSINIT 
ERROR 3 


MOV 


RO,L.CS2 


VNUM 
#SELDRV,L.CS1 


#0SC,T.DS 





;SET DRIVE SELECTOR TO DRIVE 0 
;SET STMP7 NEGATIVE 
;SET DRIVE SELECT BIT NEGATIVE 


;CLEAR SUBSYSTEM 
;ERROR FOR BAD CLEAR 


seer DRIVE SELECT 
taey T FOR DRIVE Se SELECT 
; LOAD RK REGS 
SHAT re NTERRUPT 
OW/NOT COMPLETE 
ay THAT _ AVAILABLE 


;CHECK THAT ERROR OCCURRED 

; NONE OF GROUP 1 

;NONE OF GROUP 3 

NED IN GROUP 3 

sERROR IF NO ERROR OR WRONG ERROR 
;DID STATUS VALID RESET? 


sYES = SKIP 
SELSE MESSAGE (SVAL NOT RESET WITH NED) 


VAL SET 
t MESSAGE (NO SVAL FROM EXISTANT DR) 


i FAaS at TO DO PACK ACK 
;WAIT FOR I 


NTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


;CHECK FOR ANY ERRORS 
sYES - REPORT & ABORT TEST 


3010 Ww ah 


YES - SKIP 
t MESSAGE (VV DID NOT SET/ 


; TEST IF DSC RESET 



















| 
1 
| 
| 
| 
| 
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Bore orien ern rereret i 


001410 
01 


2737 053236 
0534 


0S2341 
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T3 SELECT ALL DRIVES 


001470 
OSSS44 


001626 
000002 


001610 


001552 
001400 


BE 23$ ;YES - SKIP 

ERROR ve : ;"DSC NOT RESET RESULT OF SUBSYS CL 
238: TST DRVBIT ; TEST IF ORVBIT IS NEGATIVE 

BPL 18$ ;NO - SKIP ns 

MOV R1,ORVBIT ;STORE DRIVE SELECT BIT 

rv 1 aatad ;STORE DRIVE NUMBER TO BE TESTED 


21S: MOV STMP7, ORVNUM ;LOAD LOWEST # DRIVE PRESENT INTO DRVNUM 
CMP SRTFLG, #2 ; TEST MA GL OCK ADJUST START 
BNE ess sNO - SKI 
JMP ADJCLK 3GO TO ADJUST CLOCK ROUTINE 
ess: 
ete tt ttt ttt tt ttt ttt ti ttt ttt ttttitittittttitittittittittt 
Ss RELEASE ALL DRIVES 


tETEST 4 


3% 
2% RELEASE VES. MAKE NO ERROR 
ii SETS Bho State VALID IS RESET. 


zy 
LELELLLALEL LEE REALL LLL LEE EL RALE RARE AR ELAEREL RRA E ALAA ARR RELEES 


3 

+éT4: SCOPE 
MOV #50. ,STIMES ;:D0 50. ITERATIONS 
TSSINIT *tNITIALIZE SUBSYSTEM 
ERROR 3 “BAD INIT 


+] 
MOV DRVNUM,L.CS2 § ;SET DRIVE NUMBER 

MOV #SELORV,L.CS1  ;SET DRIVE SELECT 

TLOADRK sLOAD RK REGS 

TWATIE *WAIT FOR INTERRUPT 

ERROR 2 TO SLOW/NOT COMPLETE ERROR 


TCHKOP ;CHECK FOR ANY ERRORS 
ERROR 4 ;0R5,6,7 ;REPORT ANY ERRORS 


MOV #RLS,L.CS2 ;SET DRIVE RELEASE,STILL SET FOR SELECT 


TLOADRK ;LOAD RK REGS 
TWATI6 *WAIT FOR INTERRUPT 

ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK FOR ANY ERRORS 
ERROR 4 S, 6, OR ? :REPORT AL 


. L ERRORS 
~DS -DID SVAL RESET? ) 


-OR 
IT #SVAL,T 
Q 1 YES = SKI 
“MESSAGE (SVAL NOT RESET W/RELEASE) 


MOV #EM49, EMSN 
ERROR 3 
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RELEA SEG 0064 






1443 o044S2 TSTLUP: 

1444 ; © ELELK EKER ERE REL ERE KEKE KE EKER ERE EE AER EEE EEE EER EE ESSE EEE EEE EEES 
1s j ATEST 5 NON-STANDARD MESSAGES AND SVAL 

144 3% PICK ONE OF THE BVATLABLE DRIVES AND GET 

1448 % NON-STANDARD MESSAGES. SURE NO 

1449 1% ERROR OCCURS AND STATUS VALID DOES NOT SET 

1450 x AND THAT NON-STANDARD MESSAGES CAUSE STATUS 

1451 ii VALID TO RESET. 

1453 ee EEF LEEK ELE RESELLER ELLE EEL LE LEK EERE SEE KE LK ESLER LE FL KA SR EASES EE 
1454 oo44S2 o00004 tSTS: SCOPE 

1455 004454 012737 O00062 001262 MOV #50. ,STIMES ::D0 SO. ITERATIONS 

1456 OO4462 104416 TSSINIT *CLEAR SUBSYSTEM 

1 004464 10003 ERROR 3 "BAD CLEAR 

1458 004466 012701 O00001 MOV #1,R1 ;PRESET Ri FOR MESSAGE PAIR 1 
1459 004472 013737 001626 001610 MOV DRVNUM, L.cS2 AD DRV NUMBER 

1460 OO4S00 012737 000101 O01600 MOV #SELDRV,L.CS1 LORD SELECT COMMAND 

146s 005037 001616 1S: CLR L. MRI LOAD FOR STANDARD STATUS 

1 o04S5i2 104417 TLOADRK 

1463 004514 104423 - TWATI6 halt FOR INTERRUPT 

1464 004516 104002 ERROR 2 *TO SLOW/NOT COMPLETE ERROR 

1465 004520 104421 TCHKOP *CHECK OPERATION 

146 oo4S22 104004 ERROR 4 ;5,6 OR 7 *REPORT ALL ERRORS 

1 737 100000 oo1sse BIT #SVAL,T.DS :TEST STATUS VALID SET 

ies Bpaese ranted BNE 2s : YES-SKIP 

fie ORSw Glare Gate GEG BY etl 

178 iti 104011 ERROR ;"SVAL NOT SET RESULT OF DRIVE SELECT” 
1476 O04SS2 010137 001616 2S: MoV R1,L.MRI ;LOAD MESSAGE PAIR SELECT 

1477 OO4SS6 104417 TLOADRK sLOAD RK 

1478 OO4S60 104423 TWATIE sHAIT FOR INTERRUPT 

1479 004562 104002 ERROR 2 *TO SLOW/NOT COMPLETE ERROR 

1481 OO4SE4Y 104421 TCHKOP CHECK OPERATION 

tage 004566 104004 ERROR 4 ;5,6, OR 7 REPORT ALL ERRORS 

1484 004570 37 100000 oo1sse BIT #SVAL,T.DS ;TEST STATUS VALID RESET 

1485 004576 001407 BEQ 33 : YES-SKIP 

{4B 004600 012737 053076 001470 MOV #EMSVAL , EM12N 

1488 O04606 012737 053113 osss44 MOV #EMNZPR, DFOLIA 

1489 004614 104012 ERROR le ;"SVAL NOT RESET RESULT OF SEL W/ NON-O PAIR™ 
1491 004616 022701 000003 38: CMP 3, Ri :WAS PAIR 3 SELECTED? 

te ites ee are Be To next pa 

1494 004626 0007. BR ‘t IP TO DO IT. 

1495 004630 

1496 [Aeveepeeneeeneesn vee uresureenreeniereueseeenteenteernenneeaety 






1497 i WRITING CS2 AND STATUS VALID 
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1499 re SELECT AN AVAILABLE DRIVE. MAKE SURE STATUS 
1 i 15 SET TE COMMAND AND STATUS REGISTER 2. 
1 is TaTus VALI 
1503 te RERKEAAAAERALA LARA LALERAARERS LAE LASALLE RAALA LAKE RARARAAAAEAELEEE 
1504 gongs __ . 816: SCOPE 
1 12737 O00062 001262 HOV ry #50-,STIMES — ;;00. 50. ITERATIONS 
1506 OO4E40 104416 TSSINIT sCLEAR SUBSYSTEM 
1507 OONé42 104003 ERROR 3 BAD INIT ERROR 
1808 OONGYY 013737 OD1G26 oODIE10 MOV -DRVNUM,L.CS2_ = ; LOAD DRIVE NUMBER 
1510 oo¥BSe Ole737 00101 Odi600 MOV SSELDRY si L.CS1  ;LOAD DRIVE SELECT 
1 417 TLOADRK 
1815 atte | TWATIE tnATT FO FOR INTERRUPT 
1514 OO46EH 10002 ERROR 2 ;T0 SLOW/NOT COMPLETE ERROR 
Te1B OO4eGe 104He1 TCHKOP ;CHECK_ OPERATION 
1517 70 104004 ERROR 4 ;5,6, OR7 REPORT ALL ERRORS 
1519 00472 032737 100000 coISS2 BIT  _ #SVAL,T.DS ;TEST STATUS VALID SET 
126 004700 O01007 BNE 15 _ FYES-SKIP 
1522 OO4702 012727 053076 001460 MOV - #EMSVAL, EMIN 
1523 O04710 O1e737 045134 Osss44 MOV BEMSELD, OFOL1A 
tbe 004716 104011 ERROR ;"SVAL NOT SET RESULT OF DRV SELECT” 
1586 004720 013762 OO1625 OOOD1O 1S: MOV —DRVNUM,RKCS2(R2) WRITE CS2 TO RESET SVAL 
128 004726 104420 TGETRK ;GET RK REGS. 
1530 004730 032737 100000 oo1SS2 BIT  _#SVAL,T.DS ;TEST SVAL RESET 
es ; YES-SKIP 







1534 004746 012737 053154 OS5S544 MOV we nwCSe, DFOL1A 
1535 004754 104012 ERROR ile ;"SVAL NOT RESET BY WRITING CSe” 
1536 004756 es: 


1533 004740 012737 053076 001470 MOV #EMSVAL ,EM12N 
' 


mn a ee ee a an anes ee 


a ee ee re ee re a Oe 
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wi 


Z 


1 
1 
1 





inininatatatoramininiatat grata ig atta ty att att att Cael ied ad eek ed ork ed et oe aed 


Pa Mata a ad Met aa tae aT 


a 





001552 


001460 
Osss44 


TTL ##CONTROLLER ERROR TESTS 
s ERSEEFRAESELERELESEEAESSERED EEEERESELESESRELESER ELSES SEES SEDER S 
DRIVE TYPE ERROR 


RTEST 7 


3# CREATE A DRIVE TYPE ERROR. MAKE SURE DRIVE 
;# TYPE ERROR SETS AND STATUS VALID SETS. 


.# 
2s LELRLEFELELAELAELLSLEFSLSSRAFAFLESSSLALLEESRERELLSSRSLA SSS ESSE SS 


t$17 OPE 
MOV #50. ,STIMES -D0 50. ITERATIONS 
TSSINIT ‘ATER YSTEM 
ERROR 3 *BAD INIT ERROR 


MOV DRVNUM,L.CS2 s.0AD DRI 
MOV BSELDRV,L.CS1; 
BIS sCOT,L.¢Si *LOAD DRIVE TYPE 


TLOADRK sLOAD RK “ 
TWATI6 WAIT FOR I T 
ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
Be 000040 ‘DRIVE TYPE ERROR 
ERROR 4; 0R5,6,7  ;REPORT ANY DIFFERENCES (NO ERRORS 
sADDTT ONAL ERRORS, DIFFERENT ERRORS) 
BIT aSVAL, T.DS sTES ofp SET 
$ * s 


eB 
T 011A 
;“SVAL NOT SET RESULT OF ORV TYPE ERR™ 


: japbeeesenvesnecysssgvesvucssuesuesaceennseneescrsestenerenteens 
jATE STATUS VALID AND PARITY ERROR is 


Tee ase TO AN iLaR Oe ORIVE HITH BAD PARITY. 
aa yee 


ay ee 


. tt saeaeeaeaeeeeneseeenenenneneannnesenenanneannanseaenanaeiets 


tt 10: 
nove 850. ,STIMES ; 09 50. ITERATIONS 
TSSINIT tae SUBSYSTEM 





TTT TT TTT TT TTT 


‘SEO O06 








DORSKB. Pil ath 


tata A A A g nw 
00 0 pe 9-2 pe at et a 
NOU! £WwleHO 8 


~ 
o 


0 oo pe pape 
RERERSS 
=o 

~O.000 


SEER Toe SoRURNO DRO RUONND 
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TUS VAL SEQ 0067 

ooso74 104003 ERROR 3 sBAD INIT ERROR 
eae 19797 ppabee ppieie SOV OEE RCL eel ie VE OTe 
peeies 545332 OO16i6 MOV SPAT L ARI fe pave ty BIT 
005120 104417 TLOADRK -L0A0 RK REGS-SELECT W/EVEN PARITY 
O0Sie2 104423 TWATIE *WAIT FOR INTERRUPT 
o051e4 104002 ERROR 2 "TO SLOW/NOT COMPLETE ERROR 
005128 104422 TCHKWE sCHECK OPERATION FOR EXPECTED ERROR 
0051 po00tt DRPARERR! SPARERR *DRIVE SELECTED DRIVE BUS PARITY ERROR 
005132 .WORD 0 “CONTROLLER DETECTED DRIVE BUS PARITY ERROR 

134 00099 “WORD 0 
005136 104004 ERROR 4; OR 5,6,7  ;REPORT ANY DIFFERENCES 
095140 012700 oo0400 MOV #BIT8,RO sROUTINE TO DETERMINE WHICH BIT 
005144 013701 001626 MOV DRVNUM, Ri ;SHOULD BE SET IN ASOF TO INDICATE 

150 00} REQ DRIVE 8 ATTENTION. RO WILL HAVE THE 

152 2s: ASL RO *BIT THAT SHOULD BE SET FOR THE DRIVE 
ps1 005301 DEC Ri :IN use 

155 001375 BNE 2g 
005160 030037 o01SS6 3s BIT RO, T.ASOF ; TEST ATTENTION SET 
005164 001007 BNE 4§ ?YES-SKIP 
005166 Ole? 001460 MOV #EMDA, EMLIN 

174 012737 051527 MOV #EMDPAR, DFO11A 
1ONO1L ERROR 11 s"DRV ATT NOT SET RESULT OF DRV PARITY ERR” 
005204 040000 OO1S4O 4S: BIT 801, 7.CS1 :TEST DRIVE INTERRUPT SET 
Oosei¢ 001007 BNE c$ 3 YES-SKIP 

14 012737 053216 001460 MOV SEMDI.EMLIN 
Suscee 012737 051527 MOV 8EMDPAR, DFO11A 

104011 ERROR 11 s“DRV INT NOT SET RESULT OF ORV PARITY ERR” 
032737 040000 001552 SS: BIT #0SC, 7.05 sTEST DRIVE STATUS CHANGE SET 
ee il se ail 
i5737 beige? peecus NOV eOFOLIA 
05256 104011 ERROR 1] s"DSC NOT SET RESULT OF DRV PARITY ERR” 
100000 oo1sse 6S BIT aSVAL, 7.05 sTEST STATUS VALID SET 

MSD bLe7a7 001460 MOY CMEMSVAL.EMIN, PNP 
rises 012737 pores MOV SEMDPAR, DFOLIA 
005304 104011 ERROR 11 ;"SVAL NOT SET RESULT OF DRV PAR ERR” 
005306 005037 001616 7S: CLR L.MRI CLEAR PAT IN MRI 
005312 052737 100000 001600 BIS #CCLR,L.CS1 ;CLEAR CONTROLLER 
riers 104417 TLOADRK *LOAD RK REGS TO DO CLEAR 
oos322 104421 TCHKOP ;CHECK NO ERRORS SET 
005324 104004 ERROR 4; 0R5,6,7 ;REPORT ALL ERRORS STILL SET 
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OZR&KB.P11 T10 STATUS VALID AND PARITY ERROR SEG O0ee 
16 ’ 
ie? 005326 030037 Oo01SS6 BIT RO, T.ASOF sTEST ATTENTION STILL SET 
1 001 BNE 14 : YES-SKIP 
16 16732 053262 001510 MOV 8EMDA, EMI4N 
1 1 053302 osss44 MOV sEMCCLR, OFOLIA 
1655 104014 ERROR 14 "ORV ATT RESET RESULT OF CONT CLR” . 
iges 032737 O40000 OD1S4O 8s: BIT #01, T.CS1 sTEST DRIVE INTERRUPT STILL SET 
1658 1 BNE § : YES-SKIP 
1659 127 053216 001510 MOV 8EMDI, EM1YN 
1650 rl osss44 MOV sEMCCLR, DFOLIA 
1661 005376 104014 ERROR 14 s"DRV INT RESET RESULT OF CONTROLLER CLR” 
1663 O0S4OD 012737 000101 O01600 9s: MOV #SELDRV,L.CS1  ;LOAD SELECT DRIVE 
ipeP ve rf ae Thotte soArT FOR TATERRUPT 
ise bpeuis 1 ERROR TO SLOW/NOT COMPLETE ERROR 
1669 14 TCHKWE sCHECK THAT ERRORS ARE SET 
1670 reatt neeats .WORD 000010 tty SET {NO SPAR 1, REPORT 
167 WORD OO ANY DISCREPENCIES 
1672 Bistee 
16 1 ERR 4 ; OR 5,6,7 
| 1674 DOSHe 930037 001556 BIT RO’ T.ASOF ;TEST ATTENTION STILL SET. 
1675 1 BNE 10$ :YES-SKIP 
ee eee flere GG RY RRA 
1678 Toaoit ERROR 11 : s"DRV ATT NOT SET RESULT OF DRV PARITY ERR™ 
1680 032737 040000 001540 10S: BIT #D1,7.CS1 sTEST DRIVE INTERRUPT STILL SET 
ta HE 16 001460 cov | ReMr.emin eo OKIP 
1 005470 15°33 pezess OSSS44 MOV SEMDPAR, DFO11A 
tbe 005476 104011 ERROR 11 s"DRV INT NOT SET RESULT OF DRV PARITY ERR™ 
| 1 905500 032737 OYO000 O01SS2 11S: BIT #DSC,T.0S ;TEST STATUS CHANGE STILL SET 
1 1007 BNE - 128 + YES-SKIP 
1688 005510 012737 05323% 001460 MOV #EMDSC, EM1IN 
1689 0905516 012737 051 osss44 MOV SEMDPAR, DFO11A 
1690 005524 104011 ERROR 11 s"DSC NOT SET RESULT OF DRV PARITY ERR™ 
16 100000 o01SS2 12S: IT #SVAL,T.0S TEST STATUS VALID STILL SET 
| 1665 peeeSR poiae? fe OC : YES-SKIP 
16% 005536 012737 053076 001460 MOV SEMSVAL,EM11 
| 4695 O05544 012737 051 OSSS44 MOV SEMDPAR, OFOLIA 
| ib 104011 ERROR 11 s"SVAL NOT SET RESULT OF DRV PARITY ERR™ 
i 005554 052737 100000 001600 13S: BIS #CCLR,L.CS1 sCLEAR CONTROLLER 
! 1700 00SS62 104417 TLOADRK sLOAD RK REGS (DO CLEAR) 
1 
1206 005564 012701 000001 MOV #1,R1 SET COUNTER TO SELECT STATUS PAIR 
1704 005570 Oj 000101 001600 MOV #SELORV,L.CS1 ;LOAD DRIVE SELECT 
| 
| 
j 





178 00SS76 010137 001616 148: MOV R1,L.MRI LO Ue PAIR SELECTION 
104417 


;LOAD 
bs Sosebe iGM083 ERROR 2 tL aN re car 


1711 005610 104421 TCHKOP ;CHECK IF ANY ERRORS SET 
1716 00Sb12 104004 ERROR 4; OR S,6,7 ;REPORT ALL ERRORS SET. 


1714 005614 030037 01556 BIT R0,T. .ASOF TEST ATTENTION STILL SET 
SE 053262 001410 MOV #EMDA, EMYN 
1717 2737 OS3113 osss44 MOV aENNZPR, DFO11A 
ERROR s"ATTENTION RESET RESULT OF NON-O PAIR SEL” 


040000 001540 15S: BIT 1 »T.CS1 


032737 
BNE 
ie SE BR BRAY 






;"DRV INT RESET RESULT OF NON-O PAIR SELECT” 


RRBAD SIRO NSIS 


16$: INC Ri ;BUMP PAIR SELECT 
oo0004 CMP #4,R1 “ALL PAIRS DONE? 
BNE 14$ *NO=L 

001616 CLR L.MR1 ;CLEAR MR1 

000105 O01600 MOV SCLEAR,L.CS1  ;LOAD DRIVE CLEAR 
17 005710 104417 TLOADRK DO DRIVE CLEAR 
1735 005712 104423 TWATI6 WAIT FOR OR INTERRUPT 
: 005714 104002 ERROR 2 >TO SLOW/ TE ERROR 
1738 O0S716 104421 TCHKOP ; CHECK FOR ANY ERRORS 
i 005720 104004 ERROR 4; ORS,6,7 REPORT ALL ERRORS 
i741 005722 012701 me MOV #20, Ri SET C COUNT FOR SHORT WAIT on don 
irs EPS BIE | Be ts afasee™ Comm 
1745 O0S732 104420 TGETRK GET RK REGS 
1 734 001556 T T.ASOF sTEST ATTENTION RESET 
1 Q 1 *YES-SKIP 
tug bis7a7 ONSIEe OSsS44 HOV SEPDCLR,OFOLA 

[ fe & 

i : Speyee 104012 ERROR 1 . s"ATTENTION NOT RESET RESULT OF DRV CLEAR 
1752 005760 032737 O40000 OO1SYO 18%: BIT a01, T.CS! sTEST DRIVE INTERRUPT RESET 
1753 005765 DO140? pie BEQ : YES-SKIP 
He Bees flee BS BL BLP 
1758 104012 ERROR s"DRV INT NOT RESET RESULT OF DRIVE CLR" 
1 006006 198: 
1 s3 PESEKEELS LARA KE LAARKE RH RERS GERES LEAL SERA REAR ESSA LEAL EASE REKK REE 
1760 TEST 11 UNIT FIELD ERROR ON RELEASE 
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STATUS VALID AND PARITY ERROR SES 0069 
| 

1761 3% 

| 

{ 





b+ ee -- - -- —— oe ~- - 
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UNIT FIELD ERROR ON RELEASE 


RK611 TIONAL 


Se 


BRRARRE Got oiy 


: 


Be 


2 


b= b 2 B+ b+ B= h- 2 B= H-0 Po po 
io 


pp pe 
i 


SIs IRSA eee ATES 
ce ceces oo Sor G Ba 54 ee Et 


PSS iaiia 


Ds 02 as an Be Ban han 2 Bae ae fn Oo nn bs me Pe De ne Hae Dee Be ne ne en 2 Pe am ene 0 ene Pe ae Pe no ns Ps Pe 
NOW SW O 


+ b= b> bb ee pe 


:#  » ISSUE A SUBSYSTEM CLEAR. SELECT al AVAILABLE 
i » DRIVE. | PUT PUT CONTROLLER IN DIAGNOST IC OD E. E. SSue 
i TURN OEP piaanost ic MODES NEKE’ SURE UNIT FIELD 
:# 
E ssnpesguenscnsaasesensctarereoantominaora 
"MOV #50. , STIMES ; D0 TERATIONS 
TSSINIT HitBae Sueayeren 
ERROR 2 > BAD 
MOV DRVNUM,L.CS2 ;SELECT A ORIVE 
MOV #SELDRV,L.CS1  :D0 DRIVE SELECT 
TLOADRK 
TWATI6 chart Fo FOR INTERRUPT 
ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK_FOR ANY ERRORS 
ERROR 4; 0R5,6,7 REPORT ar ERRORS. 
BIS #RLS,L.CS2 sLOAD RELEASE 
MOV #D0MD;L.MRI *SET DIAGNOSTIC MODE 
TLOADRK ;LOAD RK 
RY, MCLOCK sCALL MAINT CLOCK 
BYTE +D19 *NUMBER OF PHASES 
“BY *NUMBER OF CLOCK XISTIONS 
BIC 8DMD,RKMRI(R2) ;CLEAR DIAG MODE 
TWATI6 sWAIT FOR INTERRUPT 
2 >TO SLOW/NOT COMPLETED 
TCHKWE St ;CHECK OPERATION WITH ERROR 
sUNIT FI 
Hd rere 4 ; OR S,6,7 REPORT fy ISCREPENCIES 
TSSINIT ‘ sCLEAR SUBSYSTEM TO INSURE UFE RESETS 
$ oSEEEELEE SES EKEELER ELL ESKER SESE REESE SLE EE LHR SELES KER ELKR EE RER EERE 
; ATE ST lz UNIT FIELD ERROR ON SELECT 
is ISSUE A SUBSYSTEM CLEAR. SELECT AN aa 
is A SELECT COMPAND WITH MESSRGE 1D 1 ia 
’ 
+i ae 3 
i TM OFF EE pinanostic MOBE OH HAKE ab SURE UNE UNI FIELD 


PL 
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DaREKS. Pi tie" ab Ect 


IELD ERROR ON 
o00062 001262 


ca 
a ool 


SRB SR Psi 
~ 





pa REA ai 


Lak EES SF 


om 


§ 
q 


aon 
is 
o 


ee ee ee ee ee ee ee ee ee oo = 0 b= 0 0 FF Fb = 0 0 0 8 0 0 0 0 0 0s 0 = = = 0 8 0 0 bs 0 pe 


RRS Ses aia dab al cata 


[a 






SEG 0071 





MOV #50. ,STIMES ::D0 SO. ITERATIONS 
TSSINIT : CLEAR T 
ERROR 3 “BAD IN 





MOV DRVNUM,L.CS2  ;LOAD DRIVE NUMBER 
MOV #SELDRV,L.CS1 ;3LOAD DRIVE SELECT 


TLOADRK LOCO RK 
TWAT16 ;WAIT FOR INTERRUPT 
ERROR 2 3170 SLOW/NOT COMPLETE 


TCHKOP ;CHECK FOR ANY ERROR 
ERROR 4; OR 5S,6,7  ;REPORT ALL ERRORS 


MOV SOMD!BITI!BITO,L.MRI - sb IAG MODE 8 MSG PAIR 3 
CLR L.cse “(OAD FOR BRIVE 0 

TLOADRK LOAD RK 

J R4, MCLOCK ; MAI CLOCK 
re Spde 4 

“BYTE 2 PLUS 2 TRANSITIONS 

BIC #OMD,RKMRI(R2) ;CLEAR DIAG MODE 

TWATIG ;WAIT FOR INTERRUPT 

ERROR 2 :TO SLOW/NOT COMPLETED ERROR 
TCHKWE ;CHECK OPERATION WITH ERROR 
.WORD O 

“WORD 0 


.WORD UFERR ;UNIT FIELD ERROR SHOULD SET 
ERROR 4; OR S,6,7 ;REPORT ANY DISCREPENCIES 


-SBTTL ##ATTENTION HANDLING BY CONTROLLER 


5p RAREELLLELELELALELERELE SLE LELESEEELALE RA SERERAAARELLALRE ALLELES 
j ATEST 132 DOUBLE INTERRUPT 





2 ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. 

i SURE TATUS VALID iS B38 CHECK THAT SECOND 
2 INT . Ww COND INTERRUET 

. GHD FAKE SURE STAT UPLB SETS.” CLERR DETES 
3% CHECK That Dave ue CHANGE tere ” : 

+ (BIT 14 OF IVE STAT 

* ISTER) 

FL sii ++ heehee 
: #50. , STIMES 3:00 50. ITERATIONS 
TSSINIT *CLEAR SUBSYSTEM 

ERROR 3 BAD INIT ERROR 
MOV DRVNUM,L.CS2  ;LOAD DRIVE NUMBER 
MOV #RECAL;L.CS1 LOAD RECAL 








2 





Ga Gee Greece 


-- 
UF 


SSI Seiten iii bin sinsoht np pata 
soieho 11 HID 6 Gitces Soe 


Os a ae Oe Ban ban Bn ne De eae sn an a ee ae ae 2 Bn Bn Ba 2 Os Pe Bae bw hme me ae Be Be Pe Bs Be b= Po he Pw ne Pe ae Hne we Pe PO Ps Ps Pe Bae Pe be Pe 


ee 
SS 


a 


se 8 8 ee 


001662 


000101 


100000 


053076 
045134 


001552 


001460 
OSSS44 


001370 


001552 
001470 
osss44 


001552 
001460 
osss44 


001600 


001552 
001460 
osss44 
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1S: 


4§: 


7 aatsetea eae deaedaahenieesieientans: 
;ATEST 14 SINGLE INTERRUPT FROM ATTENTION 





TLOADRK LO 
TWAT16 *WA FOR of con INTERRUPT 
ERROR f TO SLOW/NO ET 
LR NTSET CLEAR INTE L 
TGETRK :GET RK 
pul sgVAL., 1.05 i TEST SVAL SET 
1 ; YES-SKIP 
MOV sere vel.» EMAL 
MOV WEMRCAL,OFOLIA 
ERROR 11 ;"SVAL NOT SET RESULT OF RECAL” 
BR 50s ABORT TEST 
TWATBS ;WAIT FOR INTERRUPT 


pa aa 


MOV #ENSO,EMON ;ALTER MESSAGE “NO @ND INTERRUPT OR IT WAS LATE” 


2 
TGETRK ;GET_RK REGS 
BIT #SVAL,T.0S ;TEST SVAC SET NOW 
BEQ :NO-SKIP 
MOV VAL, EML2N 
MOV #EMCINT, DFOLIA 
ERROR ie. ;"SVAL NOT RESET RESULT OF SECOND TEST” 
BIT #0SC,T.0S sTEST DSC SET BY ATTENTION 
BNE 5 ;YES-SKIP 
MOV #EMDSC,EM11N 
MOV S#EM2INT, DFO11A 
ERROR i. ;"DSC NOT SET RESULT OF SECOND INTERRUPT” 
MOV #SELDRV,L.CS1 ;LOAD ORIVE SELECT 
rit ABE Bier 
ERROR 2 ;T0 #0 SLOW’NO ETE ERROR 2 
TCHKOP CHECK FOR ANY ERRORS 


ERROR 4; OR S,6,7 ;REPORT ALL ERRORS 
BIT SSYAL, T.0S ; TEST SVAC SET 
4 ; YES-SKIP 


nv Sra BFOLIA 


;"SVAL NOT SET RESULT OF DRV SEL. 





pe A_SE wie CYLINDER 0. WAIT FOR ae gy FROM 
IVE ATTENTION. LOWER PRIORITY AGAIN AND MAKE 
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RK611 TIONAL pba D 
DEREK. PII T14 INGLE UPT FROM ATTENTION 


pastimes 


Bi Rees Ge Gee be 


wW 


——— Fo 


: 


oo oO 


SS 6 


ras 
N 


#2 


Oe ee Be Be ae ae a ae Be an ae ae ae ae an ae ae ne as a Pe Fenn Ps ne ne ae Pe Pees ae Pe ne ne me Bs nn nw Hae ns Pe ne Pw Pe Hae Gene Pe Gn Pw fens ne ne Be Ge 


oat PERE RARE A sbaa doe se UUb al ure eae § 


Ee ES SE 


o 2 b= bs 






+ SURE ANOTHER INTERRUPT DOES NOT OCCUR. CLEAR DRIVE. 
PLLiiiiitriiiiiitiitiiitittttittttrttrtiiiitititiirtttt teres 


3% 
téT14: SCOPE 
MOV #50. , STIMES ;:D0 SO. ITERATIONS 
TSSINIT :CLEAR SUBSYSTEM 
ERROR 3 BAD INIT ERROR 


MOV DRVNUM,L.CS2  ;LOAD DRIVE NUMBER 
MOV #SEEK,{.CS1 *LOAD SEEK DCYL LEFT AT 0. 


TLOADRK ;LOAD RK REGS 

TWATI6 ;WAIT FOR INTERRUPT 

ERROR 2 ;TO SLOW/NOT COMPLETED ERROR 

TGETRK sGET RK REGS 

BIT #01,T.CS1 ; TEST DI SET 

BNE ; YES-SKIP 

MOV 1 EMLIN 

MOV SEMSKSF , DFO11A 

tae ;"DI NOT SET RESULT OF SEEK TO SELF” 
2s: MOV #25. ,RO ;LOAD AND DECREMENT A COUNT TO 
3S: C 3 . GIVE CONTROLLER A CHANCE TO 

BNE geal AGAIN. ERROR IF IT DOES. 

CMP #1, INTSET ;CHECK ONLY ONE INTERRUPT OCCURRED 

BEQ et ; YES-SKIP 

MOV #EMMI , EM13N 

MOV  8EMSKSF ,OFO11A 

ERROR 13 ;"MULTIPLE INTERRUPTS RESULT OF SEEK TO SELF” 
50S: ~ TCHKOP ;CHECK_FOR ANY ERRORS 

' ERROR 4 ;0R 5,6,7 sREPORT ALL ERRORS 

iit 
;#TEST 15 RESET ATTENTIONS WITH UNIBUS INIT 


5% 
ix TSSUe*A'RESET. AAKE “SURE ALL ATTENTION RESET. 
: HEHEHE HEHEHE HHH EEE 


téTis: 
MOV #10. , STIMES +00 10. ITERATIONS 
TSSINIT , Hiren 
3 : IN 
MOV DRVNUM,L.CS2  ;LOAD DRIVE NUMBER 
MOV #SEEK,(.CS1 LOAD SEEK (TO SELF-0) 


;LOAD RK REGS 
TWAT16 ;WAIT FOR INTERRUPT 
ERROR 2 310 SLOW/NOT COMPLETE 











1 


2 02 Bo P= Fenn ne P00 He Pe Ho enw 


BE eUSciee it eee eee ee 


S8SSsssss 
oo 0 ee 


pt cininrinisini sip yinis 


3 


a 


Z 


: 


040000 
053216 
053344 


053216 
0S3423 


001540 


001460 
osss44 


001660 


001262 





| JO6 
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TGETRK ;GET RK REGS 


a i a 

MOV #EMDIEMLIN : 

MOV #EMSKSF , OFOL1A 
RROR 11 


ER ;"DI NOT SET RESULT OF SEEK TO SELF 
1S: CLR INTSET ;CLEAR INTERRUPT COUNTER 

RESET 300 UNIBUS RESET 

CLR LCLKTK ;CLEAR_ TICK COUNTER 
SS: JSR PC MYTIME ;CALL TIMER 


CMP 10. ,LCLKTK :COUNT 10 TICKS (MILLISECONDS)? 
BNE o§ =NO = LOOP 


MOV #IE,RKCSI(R2)  ;SET IE FOR ANY STRAY INTERRUPTS 
ISR pc, OPTTST *SET UP OPTIONS AGAIN 
TWATI6 ;WAIT 16 MS FOR AN INTERRUPT 
2s : 18 i SO RETURN SHOULD BE 
*HERE-BR TO CONT 4 
MOV #EMUXIT,EMI3N 31 
MOV #EMRSET, DFOLIA 
ERROR 13. ;"UNEXECUTED INTERRUPT RESULT OF RESET” 
2s: ToTRK ;GET RK REGS 
BI #01, T.CS1 *TEST DI RESET 
BEQ 50S :YES-SKIP 
MOV #EMDI,EMI2N 


MRSET,DFOL1A 
ERROR i : s"DI NOT RESET RESULT OF RESET” 


-SBTTL ##ILLEGAL DISK ADDRESS ERROR TESTS 


ss SELLE SEL LEERLERSLAE RHEL ESZEER RSS USS RE RE LSE KEES ERY REX HSER ERLE 
j ATEST 16 ILLEGAL DISK ADDRESS (PART 1) 
a 


2 ISSUE A SEEK TO CYLINDER 0, HEAD 3. MAKE SURE 

ILLEGAL SS ERROR AND SEEK /ANCOMPLETE SETS. 
CLEAR CON CLEAR ORIVE. REPEAT FOR HEADS 4-7, 
CHECKING THAT BOTH AND SEEK INCOMPLETE SET FOR 
HEAD 7 AND IDAE ALONE SETS FOR HEADS 4, 5, AND 6. 


ss SEFLELELELELEELEELELLLAELELLLL ALLELE RE LALLAAA LALA LA LLL AL AALS EES 


tSTi6: SCOPE 
MOV #50. ,STIMES D0 SO. ITERATIONS 
MOV #3, Ri *PRESET FOR SELECTING TRACK 3 


TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 
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sSET UP TO RECAL 
sLOAD DRIVE 


;LOAD RK REGS 


;WAIT FOR 1ST INTERRUPT 
310 SLOW/NOT COMPLETE ERROR 


CLEAR INTERRUPT FLAG 
;WAIT FOR INTERRUPT 


;SET LOCAL LOOP ON ERROR 


;CLEAR SUBSYSTEM 
;BAD INIT ERROR 


;LOAD DRIVE NUMBER 
;LOAD SEEK 
;LOAD TRACK 


;LOAD RK REGS 
;WAIT FOR INTERRUPT 
3 TO SLOW/NOT COMPLETE 


; TEST IF HEAD ADDRESS HAS BIT O 
;NO - SKIP 


:TEST IF YEAD ADDRESS HAS BOTH O AND 1 
sYES-GO CHECK BOTH IDAE AND SKI SET 


;CHECK OPERATION WITH ERROR 
; ILLEGAL DISK ADDRESS ERROR 


;REPORT ALL DISCREPANCIES 
;LOCAL LOOP ON ERROR 


;CHECK OPERATION WITH ERROR 
; ILLEGAL DISK ADDRESS ERROR 
;SEEK INC 


;REPORT ANY DISCREPANCIES 
;LOCAL LOOP ON ERROR TO 1S 


;ELSE BUMP TO NEXT TLE TRACK 
;ALL ILLEGAL TRACKS SELECTED? 


PELititttititiiitiiieetiiiiitiiiittistiitititiittitititittttitty 
ILLEGAL DI PART 2) 


sKTEST 17 


: 5 RERRERRLE REEL E REAR AREA RRA L LEELA LAA RRA E RAE R AREAL ERA RELA RERELER 





SK ADDRESS ( 


TPEEGAL Bisk ADDRESS ERROR SETS” GLEAR CONTROLLER AND DRIVE 


RK611 FUNCTIONAL CON R DIAGNOSTIC MACY1I 27(732) 
DZR&KB.P1! Tl6 as nec Soone ss (PART 1) 
eove 007054 012737 000113 o01600 MOV #RECAL,L.CS1 
13 007062 013737 001626 001610 MOV DRVNUM, L.CS2 
007070 104417 TLOADRK 
007072 104423 TWATI6 
007074 104002 ERROR 2 
; 007076 005037 Oo01662 CLR INTSET 
2052 102 104437 TWATBS 
104 104C=2 ERROR 2 
007106 012737 007114 001110 MOV #1$, SLPERR 
2057 007114 104416 1S: TSSINIT 
2058 007118 104003 ERROR 3 
Bae 007120 013737 001626 001610 MOV DRVNUM, L.CS2 
uel 007125 Ol 000117 001600 MOV #SEEK,(.CS1 
e0be 007134 110137 001607 MOVE = RI, L. OT 
2064 007140 104417 TLOADRK 
2065 07 tHe 1OaWie3 TuAT16 ‘ 
Avs] sheen — 
2068 00714 032701 op0001 BIT #81T0,R1 
e0B8 0071S2 001402 2s 
007154 032701 coo002 BI #81T1,R1 
2071 007160 001007 BNE 3$ 
5073 007 162 o4422 2s: TCHKWE 
164 IDAERR 
2075 007166 000000 0 
e07b 007170 000000 0 
Boriaa foaats SCOP, OF S467 
e078 bori7e 00406 4s 
2081 007200 104422 3S: TCHKWE 
2082 O07e0e o0e002 IDAERR! SKIERR 
2083 007204 o00000 0 
oOE oozes ranean PeROR 4 ;0R 5,6,7 
Be 1 pane SCOP] ae 
ore 14 201 4S: R 
£088 poeste 2701 000010 ¥ iN a. RI 
007222 001334 BNE 1$ 
chee 
2096 
2097 






é 
g 


yf 


Ph b= ps bs bb Pb oP - b b 


BB BURRPON Som NTs wl -ODD VEN LOMO 


rurururururufurururururururururururururororu 


Ck oe tol od 


rururorurororurururururururururoforururururu 
bs be bn 0 00 hs be Bn be he 2 Be bo be Be ee 


Popeye pete tet kt 
BOOLGSS SHAS SSBVERLO 


ee Le CO A 
r - 


TIONAL _CONTROLLER DIAGNOSTIC 
117 LLEGAL DISK ADDRESS (PAR 


TST17: ae 


000004 
012737 


012737 
913737 


104417 
104423 
0400e 


MACY11 ent ae) 


sATE READ 


+ 
ca 
# 
# 
£ 
* 
* 
# 
# 
4 
# 
# 
% 
# 


#50. ,STIMES 


ERROR 3 


MOV #RECAL,L.CS1 
MOV DRVNUM, L.CS2 


TLOADRK 


TWATIE 
ERROR 2 


CLR INTSET 


TWATSS 
ERROR 2 


MOV #15, SLPERR 


1S: TSSINIT 
ERROR 3 


MOV DRVNUM 
MOV #SEEK,(. BS 
MOV #1000, L.OCYL 
TLOADRK 
TWATL6 
ERROR 
TCHKWE 
.WORD  IDAERR 
WORD O 


; 0 
ERROR 4 ; OR 5,6,7 


-SBTTL #*WRITE HEADER TESTS 


cSe 
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700 SO. ITERATIONS 


RO 


;LOAD RECALIBRATE 
;LOAD DRIVE 


;LOAD RK REGS 


;WAIT FOR 1ST INTERRUPT 
:T0 SLOW/NOT COMPLETE ERROR 


;CLEAR INTERRUPT FLAG 
;WAIT FOR INTERRUPT 


;SET LOOP TO BYPASS RECAL 
;CLEAR SUBSYSTEM 


;LOAD ORIVE NUMBER 
;LOAD SEEK 
LOAD ILLEGAL CYLINDER 
;LOAD RK REGS 
sHAIT FOR INTERRUPT 
3T0 SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION WITH ERROR 
DISK ADDRESS ERROR 


;REPORT ANY DISCREPANCIES 


[Renae 


ISSUE A READ DATA 
SECTOR FILE, 26 SECT 


Lae ne 





BAD SECTOR INFORMATION 
OF 400 WORDS TO CYLINDER 632, 
TRACK 2 TO GET THE 4 BAD 


F AN ERROR OCCURS, READ SECT 10(8) UNTIL 

on EST, fo A SUCCESSFUL, 
oF ORE THHE ENTRIES FOR VATER USE 

BED SECTORS BY SECTOR NO 


SECTORS 24 SECTOR MODE. IF THE NUMBER OF BAD SECTORS FOR 


RATIONS FOR FACTORY DETECTED 


» SOFTWARE DETECTED 
, AND SOFTWARE DETECTED BAD 





DEREKB.P1 il 





stings te 
2 
g 


rururururururururururururorore 





o 
wo 


frururururorururururururorururururururofrururururururururururyu 
BIRR LSS SBVRRES RLS Isard z2an23 


SON MIMS Hues Gane Sean 


Sosemeseens 


007556 





T20 


RK611 FUNCTIONAL CONTROLLERS ones BNET ne 


t 


000001 001262 
30 


15S: 


00 
00741e 001110 


es: 


001103 


oocode 007430 
0000ie 007430 


OS25i0 001360 


630 001354 25$: 
Oeei74 


000001 33: 
007430 

0000e6 007430 

052510 001360 


1S: 
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24 OR 26 SECTOR MODE EXCEED 20(10) THE DRIVE IS REMOVED 


FROM TESTING. 


NOTE: THIS TEST IS RUN IN THE FIRST (QUICK 
VERIFY) PASS ONLY. 


MOV #1,S$TIMES 
CLRB so 

TST $PASS 

BEQ 15$ 

IMP 235 

CLR RO 

CLR- RS 

MOV. BSF26P,R3 
MOV #1, SLPERR 
TSSINIT 

ERROR 3 


JSR R4Y, LRLOAD 
RDDATA 


-400 
IBUFF 
-BYTE 0 
"BYTE 2 
632 
TLOAD 
TWATLIe 
ERROR 
TCHKOP 
ERROR 4; OR 5,6,7 
SCOP1 
TSTB SERFLG 
BEQ 7§ 
TST RO 
nn ie 
CMPB «#10. , 2S 
BNE § 
MOV #EMS1,EMIN 
ERROR 1 
BIC ORVBIT, SDEVM 
IMP NEWDRY 
CMP #1,RO 
BNE 4g’ 
#2, 25 
CMPB $e ir) 


BNE 
MOV pers CHIN 
ess 





a ae 


::D0 1 ITERATION 
+ iPO A SECTOR POINTER 
; TEST IF FIRST PASS 


ELSE EXITT TEST 


;CLEAR RS _FOR BAD SECTOR COUNTING 

:SET PINT IN TO STORE 8S 26 SECT FORMAT 
:SET ERR rey URN ADDRESS FOR INTERNAL LOOP 
CLEAR SUBSYSTEM 

BAD INIT ERROR 


;LOAD “L" REGS WITH 
; READ 


: SECTOR ADDRESS 
t TRACK ADDRESS 
CYLINDER ADDRESS 


itor “L” REGS INTO RK 
OR IN 


LOOP TO 18 IF SW 9 SET 


Noss oe ERROR IN OPERATION 

NORTE A BS FACTORY SECTOR 26 SECT FORMAT? 
NEXT SECTOR ADDRESS 

iPAST APPLICABLE SECTORS? 


;"CANNOT READ BS FILES 

SCLEAR DRIVE FROM DRIVE MAP 

;ABORT TEST PASS. 

AO SKIP A BS SOFT SECTOR 26 SECT FORMAT’ 
NEXT CTOR ADDRESS 

sPAST REPLICABLE SECTORS? 


;"CANNOT READ BS FILES” 








aU g 
sb be bo po hm pe pe 
WONCUICWUHoO 


3 


rururons 
ore 


avs 


Sid) SSS § 


pocse2e 
Be 
es 
Ww 


ell a ‘eons CONTROLLER. DIAGNOST 
T20 AD BAD SEC 


o00002 
Bo0013 
0S2510 
000002 
000027 


052510 


001103 
056452 
0S2603 


OS64S6 
177777 


705 o00UeS 


052661 
001630 
026174 
000001 


177777 
001644 


000012 
007412 
o0000e 
177777 
000001 
001646 


001636 
007412 
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° 

IT 
iN NOW TESTING BS FACT 24 SECTOR MODE? 
ee ar 


BS_COUN 
a COUNTER FOR COUNTING 24 SECT BS 








SEQ 0078 





AO SKIP A BS FACT SECTOR 24 SECTOR FORMAT? 
iNET SECTOR ADDR 
el ae Ee roRS? 


;"CANNOT READ BS FILES” 





;NEXT SECTOR (BS SOFT 24 SECT MODE) 
srRGT EPPLICARLE SECTORS? 






;"CANNOT READ BS FILES 











; CLEAR ae FLAG 
D0 NEXT READ 


;CHECK FOR ALIGNMENT PACK 
;NO-SKIP 

















;"ALIGNMENT PACK. DRIVE ABORTING” 





;SET TO START OF BAD SECTOR DATA 
;TEST IF WORD ALL ONES (END OF DATA) 
YES-SKI 


A 
t BUMP ERROR COUN 
;DOES IT TOTAL 20 FOR THIS FORMAT? 
;NO-TEST AND MORE NEXT ADDRESS 


;TO MANY BAD SECTORS 
i CLEAR DRIVE FROM TESTING 
ABORT PASS 


;BUMP_TO NEXT 
NOW TESTING BS SOFT 26 SECTOR MODE? 
;NO-SKIP 


s INSERT END OF FIELD FLAG 
SET POINTER TO BAD SECTOR SOFTWARE FIELD 
:SET Doi SECTOR THIS MODE 






;INSERT END OF FIELD FLAG * 
ier ae’ ote ah THIS MODE 
T 26 SECTOR MODE 






SORTER FOR STORING BS 


ee on ee 
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DZRSKB.PL! T20 READ Bal SECTOR INFORMATION . SEG 0079 

5op8 10034 022700 000003 138: CMP #3,RO 5 NOW TESTING BS SOFT 24 SECTOR MODE 

19040 O10} BNE 14 ;NO-SK KTP 

10042 oh 2 197777 MOV #-1, (R3)+ i TNSERT NO OF FIE FLAG 

1 l 1642 MOV R3. bSse4p i TORE | PRINT R 16 be. 24 SECTOR MODE 
2271 Ol lle737 900013 0907430 MOVB a] 13,28 :GET START OF FIELDS BSS 24 SECT MODE 
Be 61 909137 007412 IMP :G0 READ IT 

10064 012723 177777 14$: MOV 8-1, (R34 s INSERT END OF FIELD FLAG 
ae, istcaiae ptiess 601650 MOV RS, BS24CT :STORE COUNT BSS 24 SECTOR MODE 
2277 
$278 010074 012700 osss7s MOV #8526,R0 ;GET START OF BAD SECTOR BUFFER 

010100 012703 OS6006 MOV #8524452.,R3 3GET END OF BUFFER 
sce 010104 922720 000312 27S: CMP 8312, (RO)+ sTEST IF any SECTORS BAD IN CYL 312 
eeee 019110 o01403 BEO 26s “YES = GET 
2284 O10112 020003 CMP RO.R3 ;CHECK IF ALL OF BUFFER TESTED 
2285 Oi0114 001373 BNE 27$ *NO = LOOP 
228 O1CI16 OO04DS BR Fl} 3 EXIT 
soe 910120 012737 OS3S42 001360 268: Mov SDRVABT,EMIN- ;"BAD SECTOR IN AREA FOR TEST” 
2289 Ol 186 Tee ERROR i 
ge 019130 000137 007510 IMP 25s 
en 010134 ees: 
g SESEREREEFESHEFELESSSSEELSLELLESALELGRA SRSA PERE LERE LS RES ELAAB SES 
22% jATEST 21 FORMAT IN 26 SECTOR FORMAT 
ca i FORMAT CYLI TRACK 0 AND TRACK ! FOR 26 SECTOR 
2238 :4 UEROER Bee nat aD THAT DATA tate gio Rote 
2299 i ast Tarte WRITE HEAOER_ ON N READING DA 
2300 is BUFFER AFTER 
aa graeme 
2304 goose 001262 ; #50. , STINES : 
1 1 ee Toe POINTER 
sree cre OOS POINTER 
TSSINIT Lea SUBSYSTEM 
ERROR INIT ERROR 7 


3 
033324 9S: J R4, LRLOAD ; od “L® REGS 
;WRITE 


ZINSELS KLBERY 
aes fadene G2 
ft 
3 
Hd 
E 
8 
i 


Oooo000 OOMdO0OO 
eh tht ed ee 


118:  .BYTE 


037526 J R4, GENCOM ;GENERATE DA 
BUILD HERDERS-NO BAD SECTORS 

010214 001110 MOV ®111$,SLPERR ;SE Ti, LOOP ON ERROR 
BR 1$ SKIP INIT 


DONO U 


a 


8 


SOSSISsssy 
bab at be 
we 

O000 O00000 0 ooOo0o0 crn: 


Bt baa bo he on nn oe os 0 op @ <O-- 6 


S 
8 





nm we te ee ee 2 5 re ere ee ae ss eee ore, 
' 
i 


5 as 
re High 
10220 
10eee 
10224 
2328 
e3e9 010226 
2330 010230 
2331 
010232 
010234 


0—2 0 6 b= 9 po pe he 


GRASS SOPURISITD 


eee) 
mee 


SRERBSSRER BSSHER 


PER PRRRRL Guid ula uve eee gee erect 


a ee ee er ee ee ae Hs D8 Pm Gs Hs ho Be hs he B= b= bo Fe he hen pie 


22 
ow 


, 
ib43i 
104002 
104421 
104004 


104415 
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FORMAT IN 26 SECTOR FORMAT 


010274 


000024 
OS6446 
033324 


010416 


001110 


001110 


1118: 


1$: 


TSSINIT 
RR : 
TLOADRK 
TWATLI@ 
ERROR 2 


4 ; OR S,6,7 


™ 


Se ates 


BauRUTasRS 
3S 


~] 
w 
w 
4 
=z 
lool 
~ 
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SEG 0020 
; CLEAR nih eae 
FOR INT 
FOR IN 


T ERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


;CHECK FOR ANY ERRORS 
SREPORT ALL ERRORS 


; INTERNAL LOOP TO 1118 


;SET LOCAL LOOP _ON ERROR 
;BUILD POINTER TO RKDB 


:SET POINTER TO BUFFER 
sLOAD “L” REGS 

‘ReaD HEADER 

iN WORDS COUNT 
SECTOR 0 

s TRACK 0 

; CYL 3le 

;SKIP INIT 


BAD INIT ERROR 


;"DATA LATE SET RESULT OF DB READ 
;LOCAL LOOP TO 1128 


;TEST IF CONT ERROR SET 
3NO-SKIP 


SET Rea To OF READ 0B 
fie 


LOOP TO 1 
ae 
;SKIP IN NIT 


;CLEAR SUBSYSTEM 












373 lovee 


PERLE EEererernrenir itd viii 


yyy yyy yyy yyy 
—OWOD YOU £WwM--O 


Se2ee 
2EL2 
2K8S 


2 
aw 
3 
% 


b= p< b= He 
: 


Oo0o OO 280000 2000 2000 


i 2a BS Saaee aioe 722 


© 
— 


037526 


a8 


001634 


a 


8 


ae 88 S83 
Res 
- — Je 
oO moo 

a 

oo 

—e- 

oO 

= 

Gad 


8 
4 
g 


oooco4 

012737 000062 001262 
ae 

104 
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dz -Pil Tel FORMAT IN 26 SECTOR FORMAT 


ERROR 3 ; BRO I aditdT ,ERSOR 

73: JSR R4, ROSTHD & SEQUENCE HEADERS 
TCHKOP CONTROLLER RROR RETURN 
ERROR 4; 0R5,6,7 ;REPORT ALL 
ERROR 13 ;"DATA LATE ef RESULT OF DATA BUFFER READ” 
ERROR 2 . sOPEnAT ION TO SLOW" MESSAGE 

"OR "HEADER O NOT FOUND” MESSAGE 

JSR R4, GENCOM 
100200 s COMPARE IBUF & OBUFF (HEADERS) 
BR 6$ TURN-NO MISCOMPARES 
ERROR 15 REPORT 1ST MSCOMPARES 

_ HOV ERRLNT, RO G57 ERROR bE LIMIT 

. Q 6$ sEXIT I TE TERO 

ISR R4, GENCOM 
040000 ;RESUME COMPARE 
BR Eg GOOD RETURN-NO MORE ERRORS 
ERROR 16 *REPORT NEXT ERROR LINE 
BR 12 *LOOP 
SCOP] *LOCAL ERROR LOOP TO 117S 

6S: TSTB = L..DT ;WAS TRACK 1 JUST DONE? 
BNE 8$ : YES-SKIP 
MOVB 81,115 ;CHANGE PARAM TO LOAD “L” WITH 
MOVE 81,108 : TRAC 
INP 9$ > JUMP TO DO ENTIRE TEST ON TRK 1 


8S: 
-SBTTL ##HEADER RECOGNITION TESTS 


titest ce BAD SECTOR ERROR 


SECTOR 6 GIT 15. OR'MORD OF MERGER RESET) AND SECTOR 1 
Sg tS A HEADER RESET) TO BE BAD SECTORS 
AND Tut OTHER SECTORS GOOD. 


se fa RITE DATA OF 100 WD D SECTOR TO SOU ENOER Ste, T 312 yr 0, 


WRITE DATA TO SECTOR 6 SECTOR 1 of “a WORDS. 


Poh tiaie f eneee hi Si 


SURE NO 
s SELLERS LELELELELERAELE ALLE LELSSE REALL AEL EERE ERR E SESSA REE ERERE 


téT22: SCOPE 
MOV #50. , STIMES -D0 SO. ITERATIONS 


TSSINIT ek SueSYSTEN 


© FOE ORC BRC Re aie aie OO he ae aR ae Be ope 


—. Sees ee ee ee Oe ee ee ee Oe Geese Se 








Sinn 
eeceeee © 
Ra BBaeee2 


ht 


z 


SSEURRTERE ROUNDS SAR R TERE Aa 


£ 
oO 
-— 


ass 


Peponons BFE RRRGaY 


T 


OOooOOoOoOOO00000 200 200000 OOD 


a oe epee pa pe pe Sdatakddatgatat tat 
hee 


gS agree EF Ee fi 


ae 
1 
1 


as 


8 
~ 
fu 


E 


Ss 


z 


a 


: 


ne 


8 
S 


af! baal’ 


fi 


2 ds 


Sa 


g 


BAD SECTOR ERR 
033324 


RK611 4” see CONTROLLER sa DES geevil 27(732) 
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010632 


oco00e 
010650 
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R4, LRLOAD 


| et os ] 


R4, GENCOM 


sOBUFF+2, RO 
#BIT1S, (RO)+ 
#81715, (RO)+ 
(RO}+ 

aBIT14, (RO)+ 
#81714; (RO) 






SES 0082 





ary o be Rees 
oro con FOR 26 SECTOR MODE 
R ADDRESS 





TAO 
E HEADERS 
aT NO NO BS BITS 


;RESET BIT 15 IN WORD 2 OF 
ge HEADER AND BIT 14 
WORD SEC 





IREPORT ALL ERRORS 
ISET LOCAL LOOP ON ERROR 


;LOAD “L" REGS 





3L LOAD Rk REGS 
;WAIT FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 


;JUST READ SECTOR 2? 
;YES - SKIP 


;CHECK OPERATION WITH ERROR 
;EXPECTED BSE 

;REPORT ANY DISCREPENCIES 
;LOCAL ERROR LOOP TO 4§ 
;WAS SECTOR SET T0 2 


: YES-SKIP 
i BUN TO NEXT SECTOR 




















DZROKB.P11 


a1 O1a7e6 


91 
S33 010730 
ae 

SS 
2496 

97 

98 





PY 





te 





nn ae bens ho fo he Gre b-2 bos fae 


3S oe Sdvsdas sans 


SReke 


nt ey ey et et rt nt et 
— 
oe fr 


Oooo ooo 90000 oOo SEO000000O 2808 2000000 [2000 





Bs bs ha bee eb he a oe b= bee Bre het bas bas Bee fe 


Rane 225 RONEN B 
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Tee 


104421 
104004 


000062 001262 


011042 


033324 


001110 


DIAGNOSTIC MACY11 27(732) 
SECTOR ERROR 


6$: 


fe 


e@eeweeeswees eee 
WOE KEE Oe oe oie oi 


A REECE IN st 


+6123 


1S: 


4§: 
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TCHKOP ;CHECK FOR GOOD OPERATION 
ERROR 4; 0R5,6,7 REPORT ALL ERRORS 


[Aerie nreneeannenareeneainennneineennesine niente 
R VRC ERROR 


HEADE 


FORMAT I epee Oa. ON Pecan ty TO HAVE 
16 SECTORS ait ISSUE A og old 


APE ADER VAC 18 wa NISSuE A HRTE G DATA ao. 


A GOOD HEADER AND MAKE SURE NO 


MOV 850. ,STIMES ; TERATIONS 
. pe 


SySTEn 
JSR R4, LRLOAD ne “L” REGS 
WRHEAD "WRITE HEADER 
-102 > WORD 
OBUFF ?BUFF ADD 
BYTE 0 : SECT 
0 3T 
3le2 . CYL 
ISR R4, GENCOM 
600 ;BUILD HEADERS NO BSE 
MOV 8OBUFF+4, RO GET BODRESS OF 
MOV #81T0.R3 >SET FOR BI Chance SELECT 
BIT R3, (RO) *CHECK A VRC BIT 
_, BEQ 2s :SKIP IF ZERO 
BIC R3, (RO) sELSE CLEAR IT 
BR 3$ :SKI 
BIS R3, (RO) IF ZERO SET IT 
ADD #6; RO “BUMP TO NEXT VRC WORD 
ASL R3 ;SHIFT THE CT 
BNE 1$ :IF BIT NOT SHIFTED OUT-LOOP 
TLOADRK ;LOAD RK REGS 
TWATII2 *WAIT FOR INTERRUPT 
ERROR 2 510 SL OW/NOT COMPLETE ERROR 
CHKOP :CHECK OPERATION COMPLETE 
ERROR 4; 0R5,6,7 ;REPORT ALL ERRORS 


#45, SLPERR ;SET LOCAL LOOP 


aoe SS PER 
JSR R4, LRLOAD ;LOAD “L" REGS 
WROATA 


SHRI TE DATA 
;WORD COUNT 
;BUFFER ADD 
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So HEEL it ech ca 


GS Re ae 10 Pena 


ERROR 2 ;T0 SLOW/NOT 















11 000020 011060 CMP #16.,5$ sWAS THIS WRITE SECTOR 16? 
TEA aoe BEQ 6$ HYES-SKIP 
011108 TCHKHE *CHECK OPERATION WITH ERROR 
bed Bti1IS po0Ct 40 ;HVRC EM EXPECTED 
2561 Ollll2 104004 ERROR 4; OR S,6,7  ;REPORT ANY DISCREPENCIES 
ES 011114 104415 SCOP1 sLOCAL LOOP TO 4S 
11116 105237 011060 INCB OSS ;BUMP SECTOR IN “L™ REG 
cer it 000016 011060 #16,5S iI peCTOR IS 16 OR LESS 
g iti 104421 6S TCHKOP sess EXT TION NO ERRORS 
570 pitta 104004 : ERROR 4; OR S,6,7 t REEORT ALL 
2572 011140 7S: 
, 5; RERRRLEELELAE SEES KELELAKKZLE LESLESLELBSFERRSL LAKE RE RE SS SLE PEE 
al j RTEST 24 BAD SECTOR ERROR A AND HVRC ERROR 
57k + FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR ZERO HAS 
: = BOTH A BAD SECTOR ERROR AND HEADER VRC. ISSUE A WRITE DATA 
i TO CYLINDER 0, TRACK 0, SECTOR 0. MAKE SURE ONLY HEADER VRC 
ii ERROR SETS. 
2581 oe EHLERELHEELELASE EE LKLE LEE RLLEE SLL SESE KSLA RESE LESSEE ERHERSK REE KERE ' 
gee 011149 00004 tSt24: SCOPE 4 
iiide OL” 7 000062 001262 HOY rr #50. ,STIMES D0 SO. ITERATIONS ,. 
ES 011152 104003 ERROR 3 CLEAR SuBSySTE INET ERROR 
O1L15H 004437 033324 JSR R4, LRLOAD ;LOAD "L" REG 
Sees Olilee Tver woe SHORD CNT FOR 26 SECTOR MODE 
Sees BILIES koe ae ia 
: 1188 ey BYTE 0 sSECTOR 
BS Biii90 oogsie 312 t CNL INDER 
95 011172 004437 037526 JSR R4, GENCOM 
25% 011176 000600 600 ;BUILD HEADERS-NO BSE 
ee 011200 042737 100000 O604S0 BIC #BIT1S,OBUFF+2 ;CLEAR BIT TO SET BSE,LEAVE VRC BAD. 
2600 





TLOADRK ;LOAD RK REGS 
TWAT112 ;WAIT FOR INTERRUPT 





| HO7 
PKGIL FUNCTIONAL CONTROLLER DIGGNOSTIC NACI 27(732), O1-OCT-7b 10:50 PAGE S2 sory 


011212 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
O11 14 Lowel TCHKOP ;CHECK FOR ANY ERRORS 
11216 ERROR 4; 0R5,6,7  ;REPORT ALL ERRORS 
11220 37 033324 JSR R4, LRLOAD sLOAD “L" REGS 
ll 1 WROATA WRITE DATA 
Il ! -400 WORD COUNT 
seit Olt ove TOR. 
cele 11 Bog BYTE = + encK 
eis 11234 00031 312 CYLINDER 
ig SLES ipeas re La PSE ar 
Sei? BiiSus 1 ERROR 2 :T0 SLOW/NOT C TE ERROR 
261 O1i2vs 10 TCHKHE sCHECK OPERATION WITH EXPECTED ERR 
erecer 
Bless DOOO4C 40 sHVRC ERR EXPECTED 
il 00000 0 
011254 104004 ERROR 4; 0R5,6,7  ;REPORT ALL DISCREPENCIES 
ss KLEEHFE ES RELEASE KES EE EA ARK EH EE KEELE LESS LAK ERE KKEKAER EERE LS LEK ESS 
gATEST 2s OPERATION INCOMPLETE 
bee = FORMAT CYLINDER 312, TRACK O SUCH THAT SECTOR 21 HAS THE 
: FORMAT. ISSUE A WRITE DATA OF 4OO TO CYLINER O, 
2630 is TRACK 0, SECTOR 21. MAKE SURE OPI SET. 
Pg oe SXEREL LHL AAR ELE KL LE LSELELA AES E SL RLLL ERA LES AAA RELL FE RE LH EAA ALE EEE 
ee BSED Weizaa po0062 001262 tres: aOy . #S0. , STIMES ; D0 TERATIONS 
shee 104416 TSSINIT aire SupSyeTEn 
2636 011270 104003 ERROR 3 BAD INIT ERROR 
Bx 11 004437 033324 JSR R4, LRLOAD sLOAD “L" REGS 
op3 oLle76 000127 WRHEAD ih TE HEADER 
2640 O11 77676 , -102 *WORD COUNT FOR 26 SECT MODE 
2641 1102 beanie OBUFF ;BUFF of 
crus ater ce “BY iE 5 H 
2644 011306 000312 312 CYLINDER 
11310 004437 037526 ISR R4, GENCOM 
eee Bt 14 Shoea0 600 ‘ ;BUILD HEADERS-NO BSE ERRORS 
oeag 11316 001000 46 BI #8179, OBUFF+200 ; FORMAT IN SECTOR 25 
p50 il 525937 001000 BebesB fe Sei 19" OBUFESSbe * CORRECT the 4 VRE 
Se Ge a rite 8 ar 
eS Biase ieNoae 2 :T0 SLOLONOT RONPLETE 
011340 104421 TCHKOP CHECK FOR ANY ERRORS 
2657 011342 04004 ERROR 4; 0RS,6,7 REPORT ALL ERRORS 
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265g 
2659 011344 004437 033324 JSR RY, LRLOAD ;LOAD “L” REGS 
ay ate 1 TA ‘WRITE DATA 
ti F ‘BUFF 
2663 ait? 025 -BYTE 2s i SECTOR 2s 
pee it oo0sts 312 OM aT 
pttseg§ tbuues thoraae sDOTT FOR INT 
eb Bit see 1 None ERROR 2 TO SL WE NPL ETE 
2671 011370 104422 TCHKWE ;CHECK OPERATION EXPECTED ERROR 
eb Btiare 000000 0 
gb73 i 000020 20 ;O0PI EXPECTED 
26 Bt taaB roaoo4 PeROR 4 *REPORT ANY DISCREPENCIES 
25 ; aasnessasssasssubucsusishessssisrasssanertsctsteteove rt HHHHEED 
677 : TEST 26 OPI WITH HVRC ERROR 
79 3 FORMAT CYLINDER 312 TRACK 0 SUCH THAT A HEADER VRC 
bed 3% ERROR 15 AND SECTOR 7 HAS THE HRONG. FORMAT. 
1 t% SSUE wait DATA OF 400 TO CYLINDER 
ees 2 TRACK 0 bFon” if: THAT BOTH OPERATION INCGRPLETE 
i AND NEADER VRE 
cegs + HULEKS RHEL ERELKEE RE LELALEL FLEE ERR ELEL AREA exe LR ESEELER ES RAR SEE SSSE 
ob 8b 11402 tST26: SCOPE 
11404 ieee 000062 001262 MOV #50. , STIMES -D0 50. ITERATIONS * 
2688 O11412 104416 TSSINIT SALEAR SUBSYSTEM €e! 
p83 011414 104003 ERROR 3 :BAD INIT ERROR “> 
2691 011416 37 033324 JSR RY, LRLOAD sLOAD “L” REGS 
eb 11422 1 WRHEAD WRITE HEADER 
1ie4 -102 WORD COUNT FOR 26 SECT MODE 
2694 0114 OBUFF ;BUS ADDRESS 
cei BE 8 ane 
ee 114 1 3i2 CYLINDER 
2699 011434 004437 037526 ISR R4, GENCOM 
a 011440 000600 600 ;BUILD HEADER- NO BSE ERRORS 
O1iuue 012700 060602 MOV §  SOBUFF+134,RO ;GET ADDRESS 2ND WORD HOR 17(8) 
2703 O11446 052720 001000 BIS #8179, (RO)+ SET FORMAT 24 SECT PER TRACK 
11 001000 BI #8179, (RO)+ SET VRC B 
11 go0004 #4,R0° “BUMP TO HVRC WORD HOR 20(8) 
11 i 1 BIT sat'0, (RO) ‘TEST BIT O 
2707 11466 001 BEQ *RESET-SKIP 
3708 11470 000001 BIC #8170, (RO) CLEAR BIT 
e710 011476 16 00001 1S: BIS #8170, (RO) SET grr 
Il *FORCE OPI AND HVRC ERROR 
2712 O11502 104417 2s: TLOADRK LOAD RK REGS 
2713 O11504 104431 TWATI12 *WAIT FOR INTERRUPT 
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OPI WITH HVRC ERROR 


000100 001262 


ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP sCHECK FOR ANY ERRORS 
ERROR 4; 0R5,6,7  ;YES-REPORT ALL ERRORS 
ISR R4, LRLOAD sLOAD “L" REGS 

WRDATA :WRITE DATA 

-400 :400 

OBUFF ‘BLUFF ADDRESS 

“BYTE 4” sFPecK 9 

312 t OLINOER 312 

TLOADRK sLORD RK REGS 

TWATYB WAIT FOR INTERRUPT 

ERROR 2 *T0 SLOW/NOT COMPLETE 
TCHKWE ;CHECK WITH EXPECTED ERROR 
60 sHVRC ERR & OPI EXPECTED 


ERROR 4 ;:OR S.6,7 
JEBHHBBBEBHHBHB HHS HHHE GHEE HHH HHH 
TEST 27 HVRC IGNORE ON NON-ADDRESSED SECTOR 


FORMAT CYLINDER 312, TRACK 0 SUCH THAT SECTOR 20 HAS AN HVRC 
ERROR. ISSUE A WRITE DATA OF 400 WORDS TO CYLINDER 312, TRACK 0, 
AND SECTOR 21. MAKE SURE HVRC IS NOT SET AT THE 

END OF THE OPERATION 


ss KHRELLELELLLLLLLLLLLL LLL ELLER ELS LL LEELA LAS AE AERA RELA LALRRAAELEEE 


T27: 


1$: 





SCOPE 
MOV #100, STIMES 3300 100 ITERATIONS 


TSSINIT ;CLEAR SUBSYSTEM 

ERROR 3 *BAD INIT ERROR 

JSR RY, LRLOAD sLOAD “L” REGISTERS 

WRHEAD sWR 

-102 “WORD COUNT FOR 26 SECTOR MODE 
OBUFF : 

ee eae 

312 CYLINDER 


JSR —_-R4, GENCOM . 
600 ;BUILD HEADERS-NO BSE ERRORS 


#OBUFF+144,RO  ;ADDRESS OF HEAD 20 HVRC WORD 


MOV ; 
MOV #BIT1.R1 *BIT 1 CONSTANT 
BIT Ri, (RO) “TEST BIT 1 SET 
BEQ 1§ : SET-SKIP 

BIC R1, (RO) ELSE CLEAR BIT 1 
BR 2s *SKIP 

BIS Ri, (RO) :SET BIT 1 





RK611 oe NE in 


LULL ER EPSSES SES SSS S SEES" SREEESSSRE DE 


ee ee ee ee ee 


nO NGUl£ wire 


n 
Nv 


Reiss 





Te? 


131 


er 


8 
BS 


a2 fileeats 
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oocdbe 001262 








TLOADRK ;LOAD RK REGS 
TWATLI2 * WAIT FOR INTERRUPT 
ERROR 2 ‘TO SLOW/NOT COMPLETE 
TCHKOP ;CHECK_FOR ANY ERROR 
ERROR 4; OR S,6,7 :REPORT ALL ERRORS 
JSR R4Y, LRLOAD LOAD “L” REGISTER 
WRDATA ;WRITE DATA 
ope shi COUNT 

F ¢ ADD 
-BYTE 21 sSECTOR 
-BYTE O 3T 
3l2 ;CYLINDER 
TLOADRK sLOAD RK REGS 
TWAT32 :WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP sCHECK FOR ANY ERROR 


ERROR 4; 0R5,6,7  ;REPORT ALL ERRORS. 


#*DATA TRANSFER TESTS 


1 pai grin A a gt + pe nnarnernt ceramic 
WRITE AND READ ONE SECTOR 


FORMAT CYLINDER 3 ALL TRACKS AND CYLINDER 313, TRACK 0 
TO AGREED WIT Bad éec TOR I NE ORMAT ION. ISSUE a MRITE bara 


a oc em 15 WRITTEN. 


2s LELLELLLALLLLLLLELLELLALALLE SERA LALA RRELERERARAE LARA LA LALALLLES 


SCOPE 
MOV #50. ,STIMES ;:D0 50. ITERATIONS 

TSSINIT :CLEAR SUBSYSTEM 

ERROR 3 *BAD INIT 

MO’ #312, 75 sPRESET CYL POINTER 

CLRE Ss *CLEAR TRACK POINTER 

ISR R4, LRLOAD ;LOAD "L" REG 

WRHEAD *WRITE HEADER 

-102 sHORD COUNT COUNT gbOR 26 SECTOR MODE 
OBUFF 

.BYTE 0 ; SEC ee 

‘BYTE 0 : TRACK 

312 *CYLINDER 

JSR R4, GENCOM 

1200 ;BUILD HORS-INCLUDE BAD SECTORS 
TLOADRK L 

TWATL12 hott FOR INTERRUP 

ERROR 2 TO SLOW/NOT EORPLETE ERROR 





en eee 








P 


O0o000 CoO - 

fb ba pepe epee — 
44 6 ba he fp 

*-. = 

SRR a 


fete] 


—— 
£o 


pogesan 822 § 


Oo00000 200 oO 


oo O0O00000 


ee eh ee ee 


fury: sfrurvrorory:)sofruoru: soruror: so rurururu 


Sus FE Rewwads 


oOo O0000 CO OOo O2O00000O 
oo bt bes Bet fo he peo he oad [od 


ERE EREARAR AAS Dida viurer ee eee keane isis f 
SZ RBRVS sez noR FERS 





1 
1 


see 


: 


5 


gelaes 


22 8 
PN 


a 8 


Ge 


009313 011740 
011737 000002 
011737 


012056 001110 


033324 


037526 


001634 
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T30 WRITE AND READ ONE SECTOR 


4S: 


S$: 


ERROR 4; OR 5,6,7 
CMP #313,7$ 
3$ 


BEQ 

CMPB 2S, #2 
BEQ $ 
INCB $ 
BR $ 
CLRB =o 
INC 7$ 
BR 1$ 


JSR R4Y, LRLOAD 
OBUFF 

-BYTE 12 

: 0 

JSR R4, GENCOM 


MOV #4, SLPERR 
ADRK 


KOP 
ERROR 4; OR S,6,7 
JSR R4Y, LRLOAD 
RDDATA 


HK 
ERROR 4; OR S,6,7 
JSR —-R4, GENCOM 
001 

8 6S 

ERROR 15 

MOY —_ERRLNT, RO 
DEC 0 
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;CHECK_FOR ANY ERRORS 
REPORT ALL ERRORS 


i Yee. IF Ee 313 TK O 
sD10 WE - FORMAT TRACK € 


BURP TO NEXT TRACK 
G0 FORMAT NEXT TRACK 


;CLEAR TRACK POINTER 
;BUMP CYL TO 313 
GO FORMAT 313 TK 0 


+ REGS 
thei Te bat 
; ONE SECTOR WORD COUNT 


;BUFF ADDRESS 
; SECTOR le 


K 0 
CYLINDER 312 


sBUTLD DATA PATTERN 1 
S LONG 
ger FOR LOCAL LOOP 
LOAD RK REGS 
sHAIT FOR INTERRUPT 
310 SLOW/NOT COMPLETE ERROR 


;CHECK FOR ANY ERRORS 
REPORT ALL ERRORS 


LOAD ML” REGS 


L080 
:WAIT FOR INTERRUPT 
TO SLOW/NOT COMPLETE 


;CHECK FOR ANY ERRORS 
;REPORT ALL ERRORS 


360 COMPARE DATA TO PATTERN 1 


;400 L 
GOOD RETURN-NO DATA ERRORS 
sERROR RETURN 


;GET ERROR LIMIT 
;DEC LIMIT 








ee 


11_ FUNCTIONAL eile Yi 


SESS Es 


eee 
FSS 


ee 


ih 
£o 


ei 


O00 OC080O BOKOOOOOOO00O 200000000 9020 o0O00 


ts be be bes a bee ee ee ee ee ee ee ee oe ee rororurorirurorany oe be ee a 


& 


BBB BB Bbw 
WONWMU CUI 


Be Res SNSERORRORS Deas 


c 


eileen sil 


Ne ee a ee 2  - 


037526 


000062 01262 
e7 001326 000001 


032737 000002 OO1ES6 


O46444 


1 1 046607 
th tee 001656 
70 


Olee42 001110 


033324 


037526 
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BEQ 6S sEXIT IF 0 
dascoo whee ONTI OMP 
BR 6S eit MEE SHORES MORE ERRORS 
ERROR 16 ie REPORT MISCOMPARE 
BR ek LOOP 
H ;aeeeopereeeaeeneeeeenanea cea neeaneneneanee enn aneaaneanesiteD 
He WRITE DATA ADDRESS GREATER THAN 32K 
+ ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 177770. 
ii MAKE SURE CORRECT DATA IS ON DISK. 
+r" NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K 
is OF MEMORY IS PRESENT 
; SE 
MOV #50. ,STIMES 3300 50. ITERATIONS 
chee SHANI, #1 iter it IF _>32K MEM 


BIT #MEMSZB,OPTFLG ;TEST IF REPORT ALREADY MADE 
BNE 1$ ;YES -SKIP 


TYPE  ,OPRO11 s“INSUFFICIENT MEMORY DATA TRANSFER WITH 
TYPE OPRO12 “ADDRESS >32K 
BIS BHENGZS, OPTFLG ;SET FLAG 
ne TYPE OPROIS’ ; BYPASSED” 
es: MOV #5$, SLPERR *SET LOCAL LOOP ON ERROR ADDRESS 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 "BAD INIT ERROR 
JSR R4, LRLOAD ;LOAD “L" REGS 
WRDATA WRITE DATA 
-400 “400 WORDS 
177770 * BUS RDDRESS IN 32K -10 BYTES 
-BYTE 16 jSECT OR | 
"BYTE O TRACK o/® 
1 “CYLINDER 312 
JSR R4, GENCOM ; GENERATE DATA 
10010 :PATTERN 10, MEM. MANAGEMENT FOR DEST. 
1777 aE OCA AGN ARGUMENT 
400 
TLOADRK sLOAD RK REGS 
TWAT32 WAIT FOR INTERRUPT 
ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7, 10 “REPORT ALL ERRORS 
SCOP “LOCAL LOOP ON ERROR TO S$ 


JSR 





R4, GENCOM SCLERR IBUFF TO 1°S. 





a a a ne 
r 
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OZREKB.P11 T3l WRITE DATA ADDRESS GREATER THAN 3ek SEQ 0091 






2 12316 002007 2u07 

e358 pigais 001000 1000 

2941 g1232 oou437 033324 JSR R4, LRLOAD ‘RooaTa- REGS 

Sau3 01380 177400 a ORS 

2944 Oles32 OSb446 IBUFF : TBUFF IS BUFF ADDRESS 

2945 b1e334 O16 -BYTE 16 ; SECTOR 16 

2946 012335 000 “BYTE O it K 

4 diene Ipel> 1S tana wees 

2949 plese tite TWAT32 hart FOR INTERRUPT 

2950 012344 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERR 

e231 b1e3N6 1 Hel TCHKOP “CHECK OPERATION FOR ANY ERRORS 
le 1 ERROR 4 ;ORS, 6, 7, 10 ;REPORT ALL ERRORS 

Saeq plese orogaa —_— Tie000 Re, GENCOA ‘nen MORY MANAGEMENT FOR DESTINATION 

2955 Bt SEB 110000 1777 :RELOCATION ARGUMENT 

2956 Olezbe O00400 400 DS 

2957 012364 000413 BR 4 -NO ERROR-SKIP 

2958 012366 104015 ERROR 15 *REPORT FIRST MISCOMPARE 

2959 012370 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 

2960 012374 64S: DEC RO ; DECRENENT BOUNT 

291 012376 001406 BEQ 65S F ZERO - EXIT 

2962 012400 37 037526 JSR R4, GENCOM CONTINUE DATA COMPARE 

2963 012404 oSoo00 50000 

2964 012406 o00402 BR 65$ ;NO MORE ERRORS - EXIT 

2965 O12410 10401€ ERROR 16 *REPORT NEXT ERROR 

e966 1e4l2 000770 BR 64S LOOP 

2967 012414 65S: 







48: 
2970 ilect a2 READ DATA PODRESS GREATER TN 






sar4 : READ DATA ADDRESS GREATER THAN 32K 
2973 ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 177770. 









tk 
*% 
i. CHECK MEMORY FOR CORRECT TRANSFER. 
ot 
s# 



















2975 : 
2976 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K 
2377 it OF MEMORY IS PRESENT 
ate 7 agg" jpeg piaamaaae eb ett naa senna ccna NN Ri yeitery 
012414 900004 +4132: SCOPE 
2981 012416 012737 OD00062 001262 MOV #50. .STIMES ::D0 SO. ITERATIONS 
2982 Oleved 123727 001326 00000! CMPB 3s SMAMS1, #1 i CHECK IF >32K MEMORY . 
2983 Ole432 002001 BGE 2 : YES-SKIP 
385 012434 o00462 1S: BR S$ sEXIT 
2987 012436 012737 O12444 O01110 2S: MOV #3$, SLPERR ;SET LOCAL ERROR LOOP 
Sage Bg : 
2990 O1c444 104416: TSSINIT sCLEAR SUBSYSTEM 
2991 O12446 104003 ERROR 3 ;BAD INIT ERROR 
012450 604437 033324 JSR R4, LRLOAD "LOAD "L” REGS 
012454 000123 WRDATA * WRDAT 





po we ee ee en - ee ee ee oe oS 


- LL A LL CE LL OL: I, 


Sere Pee ee Nia muri isin yisi daisies eet tet istic PRE 


RAS&11 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(7232) 
DEREKB. Pil T 


, -_ 
‘ 


ee eee 


32 READ DATA ADDRESS GREATER THAN 32k 
012456 177400 -400 
i DBO446 OBUFF 
1 1? -BYTE 17 
1 "BYTE 0 
01e464 le 312 
012465 Bows? 037526 JSR R4, GENCOM 
1e472 1} 11 
1e474 009400 400 
12476 104417 TLOADRK 
12500 104424 WAT 32 
Oleso2 104002 ERROR 2 
piSebe | 14004 EgROR 4 ORS, 6 7 
isa 033324 JSR Ry,CRLOAD "CO 
oigeie 000121 RDDATA 
012516 -177400 -400 
ot S2¢ wey 4 YT 17 
bis. oie ByyE 0 
12524 000312 3le 
01 ? T 
pisess | {oaaey There 
Bes ipcer FScie 
bisese tbuane OF 4 <ORS. 6, 7, 
912540 boa? 037526 SR R4, GENCOM 
Dlesws 1 l 
St BOON 400 
fis Wa Bae ff 
rl i 15 ERROR 15 
D1eSoe 13700 001634 NOV T,RO 
1 005300 64S: DEC RO 
O1see ross? 037526 is BSS cencom 
1 Do 
012574 o0040e2 BR 65S 
01 104016 ERROR 16 
ot 000770 BR 64S 
1 65S: 
012602 5s 
:& 
+ 
* ISSUE A WRITE DATA OF 
# MAKE SURE 
;* 
t 


T33: 


000004 
012737.. 000062 O0i2be #50. ,STIMES 


ORRECT DATA IS ON DISK. 


NOTE: THis reat iB Grey EXECUTED IF MORE THAN 64K 


Ql-0CT-7& 10:50 PAGE S93 


SEO 0092 


77400 WORDS 
;OBUFF IS BUFF ADDRESS 
;SECTOR 17 


sLOAD RK REGS 
“WAIT FOR INTERRUPT 

>TO SLOW/NOT COMPLETE ERROR 
*CHECK OPERATION FOR ANY ERRORS 
10 :REPORT ALL ERRORS 

sLOAD “L™ REG 

;READ DATA 


3400 WORDS ~ 
sACCROSS 32K BOUNDARY 
sSERTOR I? 


teYL 312 

sLOAD RK RE 

{WAIT FOR IN T 

CHEEK OPERATION FOR Art ERRORS 
10 STE PORT ALL ERRORS 

sCOMPARE DATA 


:COMPARE 400 WORDS 


; DECREMENT COUNT 
:CONTINUE DATA COMPARE 
;NO MORE ERRORS - EXIT 
5 REPORT NEXT ERROR 


WRITE DATA ADDRESS GREATER T 


WITH ADORESS = 377770. 


SS eat > reg spate tamara ana an pratense aa Oe. 


;;00 SO. ITERATIONS 





ne ee 
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Pil A ADDRESS GREATER THAN 64K 
le6l2 ie37e? 001326 000002 CMPB = SMANS1, #2 CHECK IF >64K MEMORY 
Bi See5 d5301 BGE KIP 
Bed oocod2 OO016SE &§: BIT #MEMSZ8, OPTFLG TEST m2 REPORT FLAG SET 
1 1011 BNE i$ 
1 104401 O4S444 TYPE , OPRO11 vere yen MEMCRY-DATA XFER WITH 


Glee inno Wel} a 


12646 oo0002 o016S6 BIS BMEMSZB,OPTFLG ;SET FLAG 
Baas is: , BR” 8S 


DZREKB. 
ey 
x3 12654 BR” 
sel 012656 012737 012664 001110 2: MOV #3$, SLPERR ;SET LOCAL LOOP ON ERROR 
3063 012664 3S: 
3064 see 104416 TSSINIT CLEAR SUBSYSTEM 
3065 104003 ERR 3 :BAD INIT ERROR 
ot 70 37 037526 JSR RY, GENCOM GENERATE DATA, PATTERN 11 
ee 12574 eae 1001 : MEM ON DESTINATION 
Bo Oleb7e 003777 377 i s RELOCATION ARGUMENT 
3071 012702 004437 033324 ISR RY. LRLOAD ;LOAD “L” REGS 
072 O1¢705 bo0se3 WRDATA? BALE sHRITE OAT DATA AND SET BAI 
3074 Ol27le 177770 177770 *ACC 64K BOUNDARY 
oe ten ere ae 
re 012716 ooosie 312 :CYLINDER 312 
ie 1 104417 TLOADRK sLOAD RK 
Sha Bisvee ipad theta srt FOR INTERRUPT 
3081 012724 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
| 3083 o1 1O4iet TCHK mt ace j GHECK OPERATION FOR. FOR ANY ERRORS 
| 4 pis 3 riba ashen 35h? ENC oF wepidlbied ts 
3087 ot 004437 033324 ISR RY, LRLOAD sLOAD "L” REGS 
es oem SPTHOR Rob + RtDO WORDS 
3090 012750 IBUFF sre IS BUFF ADDRESS 
Spee istes = DE BYE 8 Sone 
| 3065 g1sves o0csie 312 cage 
j 
| 3094 pieree tents TLOADRK a 
| 3095 O1e760 104424 TWAT3e tr FOR 
| oe 12762 104002 ERROR 2 310 SLOW/NOT EARP LETE ERROR 
1 104421 TCHKOP TION ANY ERRORS 
«BS bee | FROR 4. 408 5, 6, 7, 10 GREPORT ALL ERRORS 
| sit? Oierry v 7. ere 19 Ru, CENCOA (eRe eae rm DESTINATION 
} 
| 3102 012776 yop00 OCATI 
sits 013009 000400 400 too GoRoS 
| 3104 O01 000413 BR 5 MISCOMPARES-SKIP 
| 3105 013004 204015 ERROR 15 REPORT FIRST ERROR 


em see ew ee ce a seen comes + — - ——— 





SES 0093 











ae 013006 
3108 9130le 
uf Gigi 
aii OL Soe8 
ae 
1 Bae 
aie 01 
oil 

3118 

3119 

3120 

glel 

lee 


Qono00o 
Bas po pee § 2 Be 


9G) GI) GIGI) GIG) G0) GI GIG) GI GI) G0) GG) GG) GG) GG GJ I GI GI GI GI I 
GSSVRRLONH SSH TFHESH=ASSBUKRZERHSSBURRPS 
oO 


ee ee ae Be an be ae Bn me ms ae Bn bn Oe 2 Ban be ba he Be Bae 2 bs hs Be be Bn = 2 fe 0 Be 0 0 fh 
WWWIWWWWWW WW GWi)GW 
BHHSRERRER SE VHOFNES 


CSOoOOOOoOOOO 02800 OOOOOOO0O00000 
P= b= b> b= b= FF t= b= bs pee BD BB Fb hs Fs Ft 2h hs pee 


o 
= 


T33 


000062 
091326 


& 
8 enero seeepennpe omer 
MOV #50. .STIMES ::DO SO. ITERATIONS 

CMPB = SMANS1, #2 i CHECK iF >64K MEMORY 
BGE 3 S-SKIP 

1S: BR S$ SERTT 

co0032 001110 2s: MOV #32, SLPERR sSET LOCAL LOOP ON ERROR 

3S: 
TSSINIT sCLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
J R4, LRLOAD "LOAD “L” REGS 

TA *WRDATA “ 

OBUFF SOBUPF "Te BUFF ADDRESS 
-BYTE 21 * SECTOR 3) 
"BYTE ; 
312 sCYLI 312 
JSR R4, GENCOM : A 
12 :PAT 12 
400 ; 
TLOADRK 
TWAT32 hore FOR INTERRUPT 
ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 
TCHKOP HECK OPE OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5, 6, 7 i REPORT ALL ERRORS 
JSR RY, CRLOAD ' LOAD st had 
RDDATA! BALE ;READ DATA AND SET BAL 
1 ACCROSS K BOUNDARY 
-BYTE 21 ;FRON c On 2l 
"BYTE OO 
12 t CYLINDER 312 
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DZREKB.P11 WRITE DATA ADDRESS GREATER THAN 64K SEO 0094 


poets 








MOV ERRLMT, RO GET ERROR LIMIT 
64S: DEC RO !DECREMENT COUNT 

BEG 65$ IF ZERO = EXIT 

ISR R4, GENCOM ‘CONTINUE DATA COMPARE 

8R &5$ :NO MORE ERRORS - EXIT 

ERROR 16 REPORT nent ERROR : 

ous sLOOP 

ef 
: itest a4 READ DATA ADDRESS GREATER THAN EK 
: &TE READ DATA ADDRESS GREATER THAN 64K 





ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 377770. 
CHECK MEMORY FOR CORRECT TRANSFER. 


* 

& P 

é NOTE: THIS TEST 13 ONLY EXECUTED IF MORE THAN 64K 
> OF MEMORY IS PRESENT. 








READ DATA ADDRESS GREATER THAN 6 SEG 0095 


faa TLOADRK ;LOAD RK nee 
1 TWAT32 sWAIT FOR INTERRUPT 
04002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 


f 


o00 
fo heh ae 
te an a 


oP - CHECK OPERATION FOR ANY ERRORS 
-0 6, 7, 10 ;REPOR Tr eLL ERRORS 
037526 ISR RY, GENC COMPARE DATA 
120000 120000 MEM MANAGEMENT WITH SOURCE 
3777 sRELOCAT ARGUMENT 


> 20 bp > 2p p= po he pe 


ri SSeGEREGR 


BR S$ :NO_MISCOMPARES-SKIP 
ERROR 15 ;REPORT FIRST ERROR 


a a ne 


1 BEQ 65$ ;1F ZERO - EXIT 


petatetototetat— 
2 NSFIRELH SHE 
Ss 


oe a a oo oe ad 


D8 Ba bo Go Bs fo ho Ba pe ee ee ee ee oe er ed 


coe 


OoOoOoO00000 2O000000 


004437 037526 JSR R4, GENCOM CONTINUE DATA COMPARE 
060000 60000 
000402 BR 65S ;NO MORE ERRORS - EXIT 
1ono18 ERROR 16 REPORT NEXT ERROR 

BR 64S sLOOP 


65S: 


iiiiiiiiittiiitiiitiititiiiitiiititiitittiiitittittitttsiiess 
:ATEST 35 WRITE DATA ADDRESS GREATER THAN 96K 


BSSIRRIGRH Bsa oat 2 


oes bites DIAGNOSTIC MACY11 27(732) ai 10:50 PAGE 62 
! 
| 
| 


CDCI CAD CP CDCI) CCI IG) Ca) 0) OG) GG GI Gd (I GIGI I I CI I CII CIID 


P= 2 bs bs Dh te eh = pe ho + 2 HB hs fh oh 2 He De 


ss: 
iF ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 577770. 
31 {# _-NAKE SURE CORRECT DATA IS ON DISK. 
33 *# NOTE: THs 7 Y EXECUTED IF MORE THAN 96K 
: : IH HE LR 
a 012220 FFL st allie 
HR Hes Se mam mae ANTE ae Sa 
| Sor $i3sep Basra? poooce O1eSt 18:  Bif  shENSZB,OPTFLG esr IE REPORT FLAG SET 
| He ise ooi0ll BNE 2S 
| SRE Bio RRL Bue Tee Serals "RECS gery a ee 
| 3306 013260 104401 O4eE23 TYPE 
| ey Bizeed Ose7s7 O00002 onlese 4 BIS iWERSZB, OPTFLG ;SET REPORT FLAG 
| 3210 013274 012737 013302 01110 38: MOV #48, SLPERR ;SET LOCAL LOOP ON ERROR 
Be HS eau "ae 6, PE 
| 3215 O1 004437 033324 JSR _ RY, LRLOAD sL " 
| zit EE 00 1134 WRDATAL BRL? sHALTE Bar ‘Bath fo 17 
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DZR6KB.P11 135 WRITE DATA ADDRESS GREATER THAN 96K SEQ 00% 
3218 01331 177770 177770 s ACCROSS S6K BOUNDARY 
321 : 022 -BYTE = :10 SECT OR 22 
asc? pi 3354 poasts 312 CYL 31 
13224 004437 037526 . JSR R4,GENCOM “GENERATE DATA 
1 10013 . 40013 ;PATTERN 13 MEM MAN WITH DEST. 
1 5777 *RELOCATION ARGUMENT 
3225 013334 000400 :400 
01 104417 sLOAD RK REGS 
2 pt 104424 TWAT32 ;MAIT FOR INTERRUPT 
2203 Olsa42 104002 *TO SLOW/NOT COMPLETE ERROR 
53 pts 1084 ESROR 4 -ORS, 6, 7 EK ope put eRRoRS — 
5 pi sc8 1 NOM 4; OR S,6,7,10° ;REPORT ALL 
2 013352 004437 033324 ISR R4, LRLOAD sLOAD “L” REGS 
3235 O01 000121 RDDATA ;RODAT A 
3237 Ol 177400 -400 =-400 WORDS 
3238 O01 OSb446 IBUFF *IBUFF IS BUFF ADDRESS 
333 13364 022 -BYTE a SECTOR 22 
1 000 *BYT TRACK O 
sil 013366 000312 312 *CYLINDER 312 
3243 013370 104417 sLOAD RK 
3244 013372 1044 TWAT32 “WAIT FOR INTERRUPT 
si 013374 1 >TO SLOW/NOT COMPLETE ERROR 
3247 01 104421 TCHKOP - CHECK TION FOR ANY ERRORS 
38 6 104004 ERROR 4 ;0RS, 6, 7, 10 EREPOR ate ERRORS 
ee Oe ay Oo7see TiGo00 tr GENCOR SON RERORENENT WITH DESTINATION 
sebe eat 005777 5777 * RELOCATION NT 
O1i3s4l2 000400 400 ?400 WORDS 
3254 ot 14 G0041 3 BR 6 NO _M S-BRANCH 
3258 13416 10401 ERROR 1 : 1ST 
3257 013420 013700 001634 MOV ERRLMT,RO GET ERROR LIMIT 
3258 Oistcd 005300 64S: DEC RO : C 
3259 013425 001 BEQ 65S *1 - EXIT 
3260 TEE 004437 037526 JSR R4, GENCOM ‘CONTINUE DATA COMPARE 
3262 Ee o00402 Bee 65S ;NO MORE ERRORS - EXIT 
3263 O01 104016 ERROR 16 ?REPORT NEXT ERROR 
3264 013442 000770 BR 64S *LOOP 
3265 013444 65S: 
306 013444 “ 
3268 s | EEE rere reernreriienireerree rea rperneeriierteent 
3269 j ATE READ DATA ADDRESS GREATER THAN 96K 
or i ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 577770. 
3272 +" CHECK MEMORY FOR CORRECT TRANSFER. 
2273 * 
| 











o 
T= 


R SRessoee REN BUMeatane 


- 


US Sea Ce 
bie 


a ens a ee ee oe or Sr Cee eae ee a oe 


s 
tw 








BAB} FN TIONAL CONTROLLER D 


000062 001262 
001326 000003 


013474 001110 


001634 


:# TE: T Y T 
it NUTE THIS. TEST 1§ ONLY EXECUTED IF MORE THAN 96K 
agreement 
"MOV #50. STIMES ITERATIONS 
CMPB = SMAMS1, #3 ‘ADE ce IF >96K MEMORY 
BGE 3 : YES-SKIP 
23: BR 6$ 
3S: MOV #4, SLPERR ;SET LOCAL LOOP ON ERROR 
4$: 
TSSINIT sCLEAR SUBSYSTEM 
ERROR 3 ‘BAD INIT ERROR 
JSR RY, LRLOAD sLOAD “L” REGS 
WRDATA * WRDATA 
OBUFF tOBUEF TS) BUFF ADDRESS 
-BYTE ; 3 SECTOR 5 
312 + OT TNOER 312 
SR R4, GENCOM : GENERATE DATA 
400 > 400 ions 
TLOADRK ;LOAD RK REGS 
TWAT32 sHATT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
ERROR 4 6, 7 PRS, on, —— 
FR RY iRroRD ’ "* LOAD @L* 
RODATA!BAL? ;READ DATA WITH BAI7 SET 
177770 ACCROSS 96K BOUNDARY 
-BYTE 5 FROM SECTOR 5 
“BYTE 0 : TRACK 
312 CYL 312 
TLOAORK 
Thats hart AOR TRTERRUPT 
ERROR ?TO SLOW/NOT COMPLETE ERROR 
TOHKOP ete oie j HECK OPERATION FOR ANY ERRORS 
SR R4,GENCOM ° ; DAT aie 
120000 *MEM MANAGEMENT WITH SOURCE 
8777 sRELOCATI ARGUMENT 
BR 6$ i MISCOMPARES-SKIP 
ERROR 15 tREPOR FIRST ERROR 
MOV ERRLMT, RO ;GET ERROR LIMIT 
64S: RO *DECREMENT COUNT 





: G08 
SG NORTEE ULL TER Teen get 10:50 PAGE 64 















2 
z 
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-Pil READ DATA ADDRESS GREATER THAN 96K SEG 0098 
imtt a BEQ 65$ ;1F ZERO - EXIT 
: 8 037526 Ha R4, GENCOM ;CONTINUE DATA COMPARE 
| eta 65$ Ser R ROR EXIT 
Less boaree ERROR 16 iRePORT 
1 BR 64S 
13632 6S$: 
013632 


5 jAeeeveaneeseeeguennessusneesaneueesaeesastanseanssesssneseneons 
Hi PARTIAL SECTOR WRITE DATA 

iS ISSUE A WRITE DATA OF 103 WORDS TO CYLINDER 312, 

i HEAD 0, SECTOR 0. MAKE SURE THE SECTOR WAS 

i ZERO FILLED CORRECTLY. 


iiitititititittiiiiiittiittiittitiiiiiiiitiittirtitt titre 


UUbiia EEE: B 








13632 909004 +6137: 
13634 O1e737 000062 O01262 HOV rT #50. , STIMES ; s400,5 50. ITERATIONS 
1eua 1uogs ERROR 3 * BAD SE ENTT ERROR f 
033324 RY, ; Ha 
eS Bu Uilara PAROS bar 
1 177675 -103 SWORD COUNT PARTIAL SECTOR 
013656 O60446 OBUFF F ADDRESS 
013660 007 .BYTE 7? SECTOR ? 
01366 0g “BYTE 0 TRACK O 
{See 00031 312 CYLINDER 312 
013664 004437 037526 JSR R4, GENCOM ;GENERATE DATA 
13670 000003 3 :PATTERN 3 
13672 000400 400 *400 WORDS 
013674 104417 TLOADRK sLOAD RK REGS 
ot 104424 TWAT *WAIT FOR INTERRUPT 
1 1 : E 2 >TO SLOW/NOT COMPLETE ERROR 
13702 104421 TCHKOP -CHECK FOR ANY ERROR 
13704 1 NGo ERROR 4; 0R5,6,7 ;REPORT ALL ERROR 
013706 004437 033324 JSR R4, LRLOAD ;LOAD “L” REGS 
013718 000121 RDDATA ;READ DATA 
13714 177400 -400 *ONE FULL SECTOR 
013716 OSbHH IBUFF BUFF ADDRESS 
3376 Ot ‘BYTE 7 SECTOR 7 
13721 BYTE 0 : 0 
7 013722 000312 312 ‘CYLINDER 312 
o1 004437 037526 JSR R4, GENCOM 
3381 O01 002007 2007 ;CLEAR IBUFF TO ALL ONES 
ses 013732 000400 400 
13734 104417 TLOADRK sLOAD RK REGS 
. 3385 013736 104424 ‘WAIT FOR INTERRUPT 








z 
2g 


Oooo oo 


ob F=f fo pm 


& gaceeaes Sua 


QoQ 
— 


Let eeeeeetenes rere erereree erence Bi 


Bae 
229 
rat 


Sa Bane 


2 


104002 
104421 
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13? PARTIAL SECTOR WRITE DATA 


O606S4 
000275 


001634 


000062 001262 


ERROR 2 | ;T0 SLOW/NOT COMPLETE 
TCHKOP ; CHECK FOR ANY ERRORS 
ERROR 4; OR 5,6,7  ;REPORT ALL ERRORS 
MOV #OBUFF+206,R1  ;CLEAR THE bist 
MOV #275, RO OF THE OU TPUT BUFFER 0 ZERO 
1S: CLR (R1)+ :TO VERIFY THE PARTIAL TE cere 
DEC RD “WRITE O FILLED THE SECTOR 
ISR R4, GENCOM , 
100000 sCOMPARE OBUFF & IBUFF. 
400 *ALL 
BR 3$ *NO ERRORS-EXIT 
ERROR 15 *REPORT FIRST COMPARE ERROR 
RRLMT,RO RROR LIMIT 
2s: pee Age BECRERENT TT 
BEQ 3$ IF ZERO-EXIT 
ISR R4, GENCOM 
sCONTINUE COMPARE 
ERROR REPORT NEXT COMPARE. ERROR 
BR 3 sPeOeY * 
"PEL Peasveneeeaverreeaneesreneeeneeeeeseeasneesstneeesteaatians 
j ATEST 40 PARTIAL SECTOR READ DATA 
+i WRITE CYLINDER 312, TRACK 0, SECTOR ZERO WITH A 
+ KNOWN CONF 1GURA I A READ DATA OF 
2 103 WORDS TO cr ihoen Bf jee ack cKO. SECTOR 0. 
+ MAKE SURE ONLY RANSPERRED 
i TO MEMORY. 
ae eet ee eee 
MOV #50. , STIMES -DO SO. ITERATIONS 
T 
ERROR 3 HEL ERR, SVBGYSTEN 
JSR R4, LRLOAD ;LOAD “L” REGS 
TA a8 
: WORDS 
: UFF y : FS IS BUFF ADDRESS 
“BYTE TRACK O 
312 *CYL NOER 312 
JSR R4, GENCOM *GENERATE DATA 
4 ;PATTERN 
400 = 400 
oe itAIT FO FOR Ma RR 
ERROR” 2 TO SLOW/ OLeNOT EGRPLE LETE ERROR 





















rhe 


PSERERFREREM Sc sa sacar nei aune es 


ee 
eiue 


See 
re 


28 


104421 
04004 


——) 
a 


oo = 
Bae Pe fae 


ae 


a3 


S 
8 


KO 
a 


S 
a 


001634 


000062 O0l262 


1S: 


64S: 


65S: 


TCHKOP 
ERROR 
JSR R4, LRLOAD 
RDDATA 
-103 
IBUFF 
-BYTE 17 
“BYTE O 
312 
JSR R4, GENCOM 
2007 
400 
TLOADRK 
TWAT32 
ERROR & 
CHKOP 
ERROR 4 ;0RS, 6, 7, 
MOV #OBUFF +206 , RO 
MOV 
MOV #-1, (RO)+ 
DEC Ri 
BNE 1$ 
ISR RY, GENCOM 
100000 
400 
BR 33 
ERROR 15 
MOV ERRLMT, RO 
C RO 
Q 65S 
JSR R4, GENCOM 
40000 
3R 65S 
ERROR 16 
BR 64S 
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;CHECK OPERATION FOR ANY ERRORS 


4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


;LOAD _“L” REGS 

;RDDATA 

37103 WORDS 

;IBUFF_ IS BUFF ADDRESS 
sSECTOR 17 

; TRACK _O 

;CYLINDER 312 


;CLEAR IBUFF 


35: 
ert tei ttt ttt ttt it ttt ttit ttt ttt tttttittttttttt ttt} 


*&TEST 41 


o% 
: 

;* 
r 


téT41 





MOV 


WRITE DATA WITH NON-EXISTENT MEMORY 


ISSUE A WRITE DATA OF 1 WORD USING ADDRESS 776000. 
MAKE SURE NON-EXISTENT MEMORY SETS. 


#50. ,STIMES 


TSSINIT 
ERROR 3 


JSR 


R4, LRLOAD 


BA16!BAL7!WRDATA 


TiLLitiitiiititiiitiiitiititiittititiettititttiticetttireeticy 
3,00 SO. ITERATIONS 


‘BAD INIT ERROR 


;LOAD “L” REG 
;BAl6 & 17 SET WITH WRITE DATA 


SEO 0100 








3498 





PACA SIMA A aaa Ee 


4 
oi4e42 1 
Hiss i 
1424 
oisess 000312 
14 1 7? 
14 104423 
eS ie 
| 
014264 000000 
014266 000040 
014270 104004 
1 
14 0 
14 104416 
014304 1 


DATA W 


2737 000062 001262 
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-1 sWORD COUN 
176000 iBUFF ROORESS=10 PAGE BASE 
-BYTE 13 :SECT 
.BYTE O S FRACK. 
312 CYLINDER 312 
TLOADRK Lore Ee 
reRoRe 2 aid FR INTE T COMPLETE ERROR 
Foon ?CHECK OPERATION arPLETE ERROR 
0 
NE’ MEMORY ERROR 
ERROR “REPORT ANY DISCREPENCIES 
. jsueesstaantonensboasiahtunesaabaneuneennesteannenteanseneentess 
s ATE READ DATA WITH NON-EXISTENT MEMORY 


5 ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000. 
is MAKE SURE NON-EXISTENT MEMORY SETS. 


Ar vai ceeemiameeuiemmemeeuemneneeusmmaneaeaae 


jit 
Boy #50. , STIMES : $400.50; ITERATIONS 
TSSINIT SUBSYSTEM 
ERROR 3 *BAD INIT ERROR 
SR R4, LRLOAD 
Baloseni7#ROOATA Baie i g17°WLTH READ DATA 
176 OR ADDRESS=I0 PAGE BASE 
ene 13 toe 13 = 
“BYTE ‘0 
312 Pas S12 
TLOADRK sLOAD 
TWAT32 “WAIT FOR INTERRUPT 
ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
TCHKWE *CHECK OPERATION WITH ERRORS 


; XISTENT MEMORY ERROR 

T ALL DISCREPANCIES 
; jeueeaneeneces beens lalreaayslaesseennseeanssenseneeesteeait 
ATE UNIBUS PARITY ERROR 


ore & A yy! pOraT TON WITH pons 
WRITE DATA OF 400 


ae us fee AAP lt om os Oro 
_— nen "PARITY OP NY ELT s FOR 


it AO ai tot cl 


ewewewee ee ese wees ee eee 
Wi 2 OC DRC Be BC RC Be Be 
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UNIBUS PARITY ERROR 


Ta 
a 


#PARBKO, OPTFLG 
sMEMPYS, OPTFLG 
es 


WERPYE,oPTFLG. 8 
2s 





D0 50. ITERATIONS 
HEoa yt BERD 
;TEST IF PARITY OPTION PRESENT 
TEST IE PARITY OPTION REPORTED 


fa Pf i cae on 
18; “L” REGS 


0 HORDS 
SOBUPF IS BUFF ADDRESS 
SECTOR 10 


TRACK O 
CYLINDER 312 


SPARER I, ASL ERR PARITY IE 


31S BANK 1 AVAIL 


ts 
; CLEAR 1 FOR BANK! 


eH AA A AREER eS rd 


;GENERATE DATA 
PATTERN 5 
;400 WORDS 


;PUT PRIORITY 7 ON STACK 
PUT ADDRESS ON STACK 
;SET PRI 


:NO = IF oury BANK 1 AVAIL 


WRITE WRONG PARITY ENABLE 
t WRITE WRONG PARITY BIT 


ie 
UFF $664 Of SOUFF tees ;WRITE ALL ONES INTO BUFFER W/BAD PARITY 


SNe Gp Ei GS 


2 28 
3 = 


— 


— 
N 


z¢ 


uaa 


2 
SMMCSR1 ; TURN OFF CSI 


sCLEAR CONTROL BIT, SET IE BIT 
Test If BANK 1 AVAIL 


iN ak CONTROL BIT, SET IE 


; SET SED PRLORITY 
:SET_AD 
sRESTORE PRI 


;LOAD RK REGS 
WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 








ee ee ne a ee ee 
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D ti 13 Unies SeETY Y ERR 


00108 000100 001656 
650 

14620 ea besers 

O14é2e4 005037 060670 

014630 904737 032434 


s 
Oo 


ss 
-_ 
QO000 
Sears 
<= 
pas 
fu 


0000: 
012737 CO00062e O0lebe 


SUB URAT ER ORR Uno vaneNEEEEe 


= 
ooo heer oOo000 
SaSSSRe BABE 
8 
2 


4700 004437 037526 


hope [od on on et oe ood faa bn be pw 


te 
wn 
a 
e 
BB 
= 


3660 014722 004437 037526 
14 002007 


3664 014732 004437 033324 


BiT WPARSKI,OPTFLG ;TEST IF BANK 1 PARITY PRESENT 
RFR MMCSRe ; TURN OFF 
6$: CLR OBUFF +224 
CLR OBUFF +222 ;CLEAR BAD PARITY ERROR 
ISP PC, OPTTST RESET OPTIONS 
TCHKHE ;CHECK OPERATION WITH ERROR 


;UNIBUS PARITY ERROR 
REPORT ALL DISCREPANCIES 


UPERR 

ERROR 4; OR 5,6,7 
2s: 
-SBTTL ‘**#MULTIPLE SECTOR OPERATIONS 


iT IW SECT RITE DTA PT See 
jRTEST 44 TWO SECTOR WRITE DATA (PART 1) 

tk ISSUE 8 WRITE DATA OF 1000 WORDS TO CYLINDER 312, 

+ TRACK 0 SECTOR 0. READ DATA BACK ONE SECTOR 

i TIME AND MAKE SURE IT IS CORRECT. 


Se RRR ee ee ee 


a 

Soy #50. ,STIMES ;:D0 SO. ITERATIONS 

TSSINIT tALEAR SUBSYSTEM 

ERROR 3 *BAD INIT ERROR 

JSR R4, LRLOAD sLOAD “L” REGS 

WRDATA ;WRDATA 

-1000 *=1000 WORDS 

OBUFF *OBUFF_IS BUFF ADDRESS 

-BYTE O ; SECTOR 0 

"BYTE 0 TRACK O 

312 CYLINDER 312 

JSR R4, GENCOM GENERATE DATA 
*PATTERN 15 

1000 1000 WORDS 

TLOADRK ;LOAD RK _REGS 

TWAT32 ;WAIT FOR INTERR 

ERROR 2 TO SLOW/NOT EORPLETE ERROR 


TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7, 10 ;REPORT ALL ERRORS 


JSR R4, GENCOM ;CLEAR IBUFF 
2007 TO ALL 1’S 
1000 * 

JSR R4, LRLOAD sLOAD "L" REGS 
RDDATA ;RODATA 


~ 


SEQ 0103 


[ott ee ee eee 
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WO SECTOR WRITE DATA (PART 1) SEO 0104 
3666 O14740 177400 -400 -400 W 
3667 gle OS6446 IBUFE STBUFF ag BUFF ADDRESS 
Ole BBA ‘BYE 8 sFEGIOR, 
3670 14748 000312 3le CYLINDER 312 
14 104417 TLOADRK 
378 ois {pade4 TWAT32 hart RGR Eat eRR 
304 14754 104002 ERROR 2 :TO SLOW/NOT TERR ETE ERROR 
36 14 194aet TCHKOP “CHECK OPERATION FOR ANY ERRORS 
$00 14 104004 ERROR 4 ;0R 5, 6, 7, 10 ;REPORT ALL ERRORS 
36739 014762 004437 033324 JSR R4, LRLOAD ;LOAD “L” REGS 
3680 o14766 000121 RDDATA :RODATA 
3681 614770 177400 -400 $-400 WORDS 
3682 014772 O57446 IBUFF+1000 - IBUFF+1000 IS BUFF ADDRESS 
3683. 014774 001 -BYTE 1 SECTOR | 
3684 014775 000 "BYTE O TRACK O 
$685 014776 000312 312 ‘CYLINDER 312 
3687 O1S000 104417 TLOADRK ;LOAD RK REGS 
3688 015002 104424 TWAT32 *WAIT FOR INTERRUPT 
3683 15004 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
3691 015006 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS h 
3b3e 015010 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS , j 
3694 015012 004437 037526 JSR R4, GENCOM ;COMPARE DATA 
3695 015016 100000 100000 
36% 015020 001000 1000 * 1000 WORDS 
3697 015022 000413 BR 2S *NO MISCOMPARES-EXIT 
3638 015004 104015 ERROR 15 *REPORT FIRST ERROR 
3700 015026 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 
3701 015032 64$: DEC RO *DECREMENT COUNT 
3702 015034 001406 stk BEQ 65S IF ZERO = EXIT 
3703 015036 004437 037526 JSR R4, GENCOM *CONTINUE DATA COMPARE 
3704 015042 40000 
370S 015044 go0040e2 R 65S ;NO MORE ERRORS - EXIT 
3706 . 015046 104016 ERROR 16 REPORT NEXT ERROR 
3707 015050 000770 - BR 64S * LOOP 
3708 015052 65S: 
3709 
3710 015052 2s: 
3711 . © KEKKLLALALKE LALA ALLELE LE RL AS LA LE LL LAA AA K KAKA K RAE KL SRA KAKKKERE 
3712 thr TEST 45 TWO SECTOR WRITE DATA (PART 2) 


3713 x 

3714 1s ISSUE 8 WRITE DATA OF 1000 WORDS TO CYLINDER 312, 

3715 1% TRACK 0 SECTOR 23. READ DATA BACK ONE SECTOR 

3716 * T A TIME AND MAKE SURE A MID-TRANSFER 

717 ii Cre DID NOT TAKE PLACE. 

3719 } 2 KE KL KELL L ELLE EES EL KRL LL KAKA E LEEK ESSER REL EK SRK KEKE ES REE RHE LE 
3720 O1S0S2 OO0004 téT45: - SCOPE 

3721 015054 012737 oo0062 oD1262 MOV #50. ,STIMES ::D0 50. ITERATIONS 


[oe ee ee ener nn ee orem eee 


et RE 6 RO — eR EP 2 SSS TE SNES SS 
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T45 TWO SECTOR WRITE DATA (PART 2) SEQ 0105 
3722 ‘C1502 104416 TSSINIT sCLEAR SUBSYSTEM 
2 3 O15064 104003 EPROR 3 BAD INIT ERROR 
é 
? JSR R4,LRLOA ap “L” 
oT Baga ROO Hat” Re 
3727 015074 177000 -1000 1000 WORDS 
3728 015076 46 OBUFF :OBUFF_IS BUFF ADDRESS 
3729 015190 023 .BYTE 23 ;SECTOR 23 
3730 015101 "BYTE KO 
sal 015102 990312 ZCYLINDER 312 
3733 015104 37 037526 JSR . RY,GENCOM GENERATE DATA 
3734 015110 So00l6 16 PATTERN 16 
3735 O15ile 601000 1000 ‘1000 WORDS 
33 015114 104417 TLOADRK sLOAD RK REGS 
3738 015116 104424 TWAT 32 :WAIT FOR INTERRUPT 
339 15120 104002 2 TQ SLOW/NOT COMPLETE ERROR 
3741 015122 104421 TCHKOP - CHECK TION FOR ANY ERRORS 
arte O1Sie4 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
3744 ; IF THE TRACK RODRESS AT THE END OF OPERATION IS IN ERROR 
3745 : THE CONTROLLER DID A MID-TRANSFER SEEK AS THOUGH iT 
aris ; WERE IN 24(8) SECTORS PER TRACK MODE. 
3748 015126 004437 033324 JSR RY, LRLOAD ;LOAD “L” REGS 
sep bieisa S77aBD ah Ree 
3751 151% OSE446 IBUFF ST BUEF 1S BUFF ADDRESS 
3752 015140 023 BYTE 23 SECTOR 2 
3753 (015141 000 BYTE O TRACK O 
a7 015142 o003le 312 CYLINDER 312 
15144 37 037526 JSR R4, GENCOM CLEAR IBUFF TO ALL ONES 
sey Bieiea posose 2857 
758 015152 001000 1000 * 
oP : reat ta THAT hore FOR INTERRUPT 
3762 pietes 1 2 :T0 SLOW/NOT COMPLETE ERROR ~ 
ea 015162 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
we oe 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
015166 004437 033324 JSR RY, LRLOAD LOAD “L”™ REGS 
015172 121 RODATA > RODATA 
piette depute Terre! }“M00 WORDS UFF+1000 IS BUFF ADDRESS 
1 staan 024 BYTE : SECTOR if 
3772 01520 060 "BYTE O . “TRACK O 
3773 {e502 000312 312 *CYLINDER 312 
ee 16204 104417 TLOADRK ;LOAD RK REGS 
01 104454 TWAT32.—; shalt FOR INTERRUPT 
3777 015210 04002 ERROR 2 *T0 SLOW/NOT COMPLETE ERROR 





oe 
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DZREKB.P11 T4S TWO SECTOR WRITE DATA (PART 2) SEG 0106 


3778 
779 gisele 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
186 15214 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
3786 15216 004437 027526 ISR RY, GENCOM ;COMPARE DATA 
rf A 1OOee . ; 1000 WORDS 
| 2 HER Bue eis Pe sc 
ve 15230 104015 ERROR 15 “REPORT FIRST ERROR 
g1se32 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 
3789 015236 005300 64$: DEC RO ;DECREMENT COUNT 
a HERS GBA cars FA Rccxn ——Zonitte ont corre 
3792 Bt esuE P08 40000 ‘ 
3793 015250 00402 BR 65S :NO MORE ERRORS - EXIT 
3708 015252 104016 ERROR 16 *REPORT NEXT ERROR 
3795 015254 aes 4S LOOP 
3796 015256 6S: 
3738 H > 0 ge $5666 A 
3799 i4 EST 46 TWO SECTOR WRITE DATA (PART 3) 
Ea + SSUE A WRITE DATA OF 401 WORDS TO CYLINDER 312 
3802 7+ TRACK 0 SECTOR 10. READ DATA A_BACK ONE SECTOR AT 
33 is A TIME AND CHECK ZERO FILL OF SECOND SECTOR. 
3805 sEFSSSERSELELGEAE LESS SE LERLESHL SEE SRESRESSRSSESARESSLEERLE SASH SE 
3806 015256 po0004 une OPE 
3807 015260 012737 o00Nse oDlete MOV #50. ,STIMES 5400.5 SO. ITERATIONS 
015266 104416 TSSINIT sGLEAR SUBSY SUBSYSTEM 
320 015270 104003 ERROR 3 . INIT ERROR 
3811 015272 004437 033324 JSR RY, LRLOAD sLOAD "L” REGS 
zl O15¢76 oooie3 WRDATA jHRDA TA 
2814 Biese ious OBUFF SOSUER TS. BUFF ADDRESS 
zB15 015304 | 010 BYTE io i SECTOR 10 
17 piesbe 000312 312 OWL TNOER 312 
| 316 015310 004437 037526 ISR R4, GENCOM ; GENERATE DATA 
21 Bei Olea 01000 1000 ; 1000 
i 
3823 015320 104417 TLOADRK LOAD RK REGS 
s8e4 15322 tate TWAT32 *WAIT FOR INTERRUPT 
153e4 104002 ERROR 2 370 SLOW/NOT COMPLETE ERROR 
Ss, 1 104421 TCHKOP CHECK TION FOR ANY ERRORS 
| #2 ot 1 ERROR 4 ORS. 6, 7, 1b <KEPOR ERRORS 
| 3829 ; PEAR LAST 477 ORES of OBUEF Fos XPECTED ZEROS FROM ZERO FILL 
330 1 912700 061450 MOV WOBUFF+1002,R0 ;GET START NG NG_AODRESS TO BE CLEARED 
1 01 Oie701 0003 MOV =: 8377, RI 
| 3632 01534 1S: CLR (RO)4 :C words 
| 3833 O1S344 005301 DEC Ri DEC COUNT 
| 





be ee er ee eer ne eee oe - - - —_— 


SES ATA ESS aa a eee EF 


ne a ee ee a eet ree eee e tee Cte eee ene <0 = «pete ee CS ES EE TS TT 





' 





aa 


Re RBS JaNse 


SSRSERDG FIG82 REN TRRETS 


15474 


2 
2 
2 


001900 


ne dP oe dames DIPGNOSTIC. MACY11 27( 732) 


O SECTOR WRITE DATA (PART 3) 


37 033324 


001634 


64S: 


65S: 


ATE 


BNE 1$ 
ISR RY, GENCOM 
2097 

1900 : 
JSR R4, LRLOAD 
RDDATA 

-400 

IBUFF 

-BYTE 10 

"BYTE 0 

3le 

TLOAORK 

E 2 

renee 4 :ORS 
ISR , LRLOAD 
RDDATA 

-400 

IBUFF +1000 

“BYTE 11 

“BYTE 

312 

TL 

TWAT 32 

ERROR 2 


1000 
BR es 
ERROR 15 
MOV ERRLMT, RO 
DEC RO 
BEQ 65S 
JSR R4, GENCOM 
40000 
BR 6s$ 
ERROR 16 
64$ 
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;LOAD_“L” REGS 
;RODATA 

37400 WORDS 

;IBUFF IS BUFF ADORESS 
SECTOR 10 
; TRACK 
;CYLINDER 312 


;LOAD RK REGS 
;WAIT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


+ CHECK ah a FOR ANY ERRORS 
O ;REPORT ALL ERRORS 


- IBUFF+1000 IS BUFF ADDRESS 
s SECTOR ii 


0 

CYLINDER 312 

;LOAD RK REGS 

WAIT FOR INTERRUPT 

TO SLOW/NOT COMPLETE ERROR 
;DATA COMPARE 

;1000 WORDS 
3NO_ERROR-SKIP 
REPORT FIRST ERROR 


ser Tenens bantt 


HIE ge,” Pa, COMPARE 
NO MORE ERRORS - EXIT 
ERROR 


cor ee 


| EEEREEOeeeneneneveaneenceesreenevcnreenneanreesreeteseteess 
MID-TRANSFER SEEK ON 1) 


WRITE (PAR 


Pr ilred wad ale Mises INDER 312, 


at A Tithe a 
DID TAKE PL 


2S._ READ DATA BACK 
MAKE SURE A MID-TRANSFER SEEK 


SECTOR 


SEQ 0107 








RK611 47 idea phate 8 


ES ih MNEs nish ee eee : 


Pn ne ee ee 


| 
| 
| 
| 


00006e O0lebe 


033324 


037526 


037526 


tét47 
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RANSFER SEEK ON WRITE (PART 


. a ae ee eee 


E 
Hey #50. ,STIMES 


: D0 Bre, 2! ITERATIONS 
TSSINIT tACe 
ERROR 3 : BAD INTE ERROR 
J RY, LR “le 
ISR - LRLOAD Leer L” REGS 
OBUEE “1000 HORQs 1S BUFF ADDRESS 
MBYTES ei 35 
“BYTE TRACK 0 
312 CYLINDER 312 
JSR R4, GENCOM GENERATE DATA 
3 :PATTERN 3 
1000 1000 WORDS 
TLOADRK sLOAD RK REGS 
TWAT *WAIT FOR INTERRUPT 
ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 
TCHKOP + CHECK OPERATION FOR ANY ERRORS 
ORS, 6 7, 10 ;RE 
SRE OnCK eRRin Pe NTED but ai" THe Fe END OF be THE OPERATION INDICATES A 
HID-TRANSE ER IE HED SWITCH DID NO 
2007 
1000 
JSR RY, LRLOAD sLOAD “L” REGS 
RDDATA RODATA 
-400 ?=400 WORDS 
IBUFF *IBUFF IS BUFF ADDRESS 
-BYTE s *SECTOR 2S 
312 ‘TRAX O 312 
TLOADRK ;LOAD RK REGS 
TWATYB *WAIT FOR INTERRUPT 
ERROR 2 TO SL T COMPLETE ERROR 
TCHKOP CHECK TION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, | ; RE Ce aL ALL ERRORS 
JSR R4, LRLOAD ia "L” REGS 
TA TA 
IBUFF+1000 WOR SUF F +1000 IS BUFF ADDRESS 
ee set 
af ol 312 
TLOADRK 


TWATYS TAIT FORT 
ERROR 2 370 SLOW/NOT vreau ERROR 


SEQ 0108 









SS SES SSeS aIEG & 
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104421 
104004 


037526 


000062 001262 


037526 


64S: 


655: 


Ht 


PIRCNOD ITE MACY11 27(732) 
MIO-TRANSFER SEEK ON WRITE (PART 


TCHKOP 
ERROR 


JSR 
100000 





5 Tete 10:50 PAGE 76 


*CHECK OPERATION FOR ANY ERRORS 


4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 


RY, GENCOM 


;COMPARE DATA 
51RD WORDS 
O ERRORS-SKIP 
REPORT FIRST ERROR 
T ERROR LIMIT 
iDeceerent Count 
CONTINUE DATA COMPARE 
MORE ERRORS - EXIT 


REPORT NEXT ERROR 


[axeeeeeeveaveneeceeeeenneeneesveseeareasnenseeneeeteaeeneesse 
MID-TRANSFER SEEK ON WRITE (PART 2) 


ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312, 
TRACK 2, SECTOR 25. READ DATA BACK ONE SECTOR 
AT AT Tite AND AND MAKE SEEK 


DID T 


E PLACE. 


SURE A MID-TRANSFER 


ss KELRELELEELLLLLELE LLL LELLE SEAL SARLERRALARRARERRELRE RELL LALLA LE 





MOV #50. , STIMES +:D0 SO. ITERATIONS 
TSSINIT iSLEAR S 
3 
ISR R4, LRLOAD sLOAD “L” REGS 
WROATA *WRDATA 
-1000 *=1000 WORDS 
OBUFF :OBUFF IS BUFF ADDRESS 
-BYTE *SECTOR 2S 
' s TRACK 2 
312 CYLINDER 312 
JSR R4, GENCOM TE DATA 
4 TTERN 4 
1000 ye WORDS 
TLOADRK LOAD RK REGS 
TWAT *WAIT FOR IN T 


2 TE ERROR 
A CYLINDER ERROR REPORTED AT THE END OF THE OPERATION INDICATES A 
BO Op OreR SEEK DID NOT eee 


4 ;0RS, 6 7, id's 


ERROR 
JSR 





R4, GENCOM 





370 SL T 
ee ee OB OR FOR ANY ERRORS 


;CLEAR IBUFF TO ALL ONES 












nee ee 


r 
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002007 
00100 


scecccecseeeeeeees F 


RRS RAN Se RE oe 22s GRATER EMS MARINE 


15764 


RRIRG: RE BER BNSSNS 


000121 


033324 


001634 


2U07 
1000 
JSR R4, LRLOAD sLOAD “L” REGS 
RDDATA ;RODATA 
-400 400 WORDS 
IBUFF : TBUFF IS BUFF ADDRESS 
: BYTE 25 sSECT CTOR 2S 
3i2 OL INDER 312 
TLOADRK sLOAD RK REGS 
TWATYS *WAIT FOR INTERRUPT 
ERROR 2 | ?TO SLOW/NOT COMPLETE ERROR 
TCHKOP . sCHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5, 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, LRLOAD sLOAD “L” REGS 
RDDATA *RDDATA 
-400 ?=400 WORDS 
BUFF +1000 IBUFF+1000 IS BUFF ADDRESS 
BYTE SECTOR é 
“BYTE 0 TRACK O 
313 :CYLINDER 313 
TLOADRK ;LOAD RK REGS 
TWAT4B *WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
J RY cM ; TA 
TSR , GENC COMPARE DA 
ees ae LSCONPARES-SKIP 
ERROR 15 REPORT ter ERROR 
MOV ERRLMT,RO :GET ERROR LIMIT 
64S: DEC RO ; DECRENEN T COUNT 
BEQ 65S F ZERO - EXIT 
JSR R4, GENCOM CONTINUE DATA COMPARE 
; - EXIT 
Fron 6 ARSE BE aan 
se BR 64S LOOP 


s a eee errr ra ro 
jt TWO SECTOR READ DATA (PART 1) 


f ‘es 6, SECTOR G, VERIFY THAT CORRECT DATA 1S. 
READ. 


"a, A 


SES 0110 


TA 
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OZREKB.P TS1 TWO SECTOR READ DATA (PART 1) SEQ O11! 





4058 ;% 
40593 # NOTE: TWO SECTOR WRITE DATA (PART 1) MUST BE 
4060 i} EXECUTED BEFORE THIS TEST. 
id ‘ [PEPE eeaeaneaeeceaeanesenaenneaenennnannnenenaeanaaeaneaets 
4063 016104 o00004 iit TS1: 
4064 016106 912737 OCO0062 001262 aoy #50. ,STIMES ea 50. ITERATIONS 
4065 O16114 104416 TSSINIT agus SUBSYSTEM 
406 016116 ERROR 3 ie ERROR 
4068 GENERATE SAME DATA AS a IN TWO SECTOR WRITE DATA (PART 1) 
4070 : GENERATE SAME DATA AS USED_IN TWO SECTOR WRITE DATA PART 1 
4071 016120 004437 037526 JSR R4, GENCOM TE DATA 
4078 Dibies 000015 15 {PATTERN 15 
16126 901000 too 1000 WORDS 
ape 016130 004437 037526 JSR R4, GENCOM — IBUFF TO ALL ONES 
4076 016134 2007 
pe 016136 001000 1000 
4079 016140 004437 033324 ISR RY, LRLOAD sLOAD “L” REGS 
4080 016144 000121 RDDATA ;RODATA 
4081 016146 177000 -1000 1000 WORDS 
4082 Oib150 056 IBUFF TRUE IS BUFF ADDRESS 
4083 0161 -BYTE 0 *SECTOR O 
4084 016153 es) “BYTE 0 TRACK O 
408S 016154 “wO3ie2 312 “CYLINDER 312 
apse 16156 104417 TLOADRK sLOAD RK REGS 
4088 016160 104424 TWAT 32 *WPIT FOR INTERRUPT 
4089 Ol6i62 104002 ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
uOst 016164 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
iOze 016166 1buoo4 ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
4094 016170 004437 037526 jee R4, GENCOM COMPARE DATA 
4095 016174 100000 100000 
40% 016176 001000 1000 ;1000 WORDS 
4097 016200 000413 BR 1$ NO MISCOMPARES-SKIP 
4038 Olb2e02 104015 ERROR 15 
4100 016204 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 
4101 stats 00500 64S: DEC ROO’ ; DECREMENT COUNT 
4102 Olbel2 1408 BEQ 65S IF ZERO = EXIT 
4103 016214 004437 037526 JSR R4, GENCOM *CONTINUE DATA COMPARE 
4104 016220 40000 40000 
Wipe O1Eee9 Iouote ERROR f° EREPORT NEXT ERROR 
wit? Dlesee ADO77B Brats i GOP 
4108 016230 65S: 
4109 
4110 016230 


8 | HERE rere eee reenreenee neenieneerrenniennesoneneenitent 
die . iste TWO SECTOR READ DATA (PART 2) 





= 
rary 
— 
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DZR&KB.P11 TS2 TWO SECTOR READ DATA (PART 2) SEG Olle 


ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312 





4115 te TRACK 0, SECTOR 23. VERIFY THAT CORRECT DATA I¢ 
4116 i READ AND A MID-TRANSFER SEEK DOES NOT OCCUR. 
4118 x NOTE: TWO SECTOR WRITE DATA (PART 2) MUST BE 
a113 i EXECUTED BEFORE THIS TEST. 
iiss ee REL EE REEL ERE SLE KE LER EERE RHK LEH EH LL HELE AE LHEES RHEE SELLS ALA ESRF LF SSE 
4122 016230 OCO004 téts2: so 
4123 Ol6e32 012737 OO00b2 001262 MOV #50. , STIMES ;:D0 SO. ITERATIONS 
4124 b1be%0 10441 TSSINIT sche SYSTEM 
i lee42 1 ERROR 3 
die? ;GENERATE SAME DATA AS a IN TWO SECTOR WRITE (PART 2) 
4123 Oib2u 004437 037526 ISR R4, GENCOM GENERATE DATA 
wie) Bieeee BRAS oo a ood 
u133 O16254 004437 037526 ISR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
4] 1 1909 1900 
4} 1 033324 R4, LRLOAD ;LOAD “L” REGS 
uE: i 121 RODATA :RDDATA 
4] ot PSe5 bepane TBUEE :I IS BUFF ADDRESS 
4140 Olbe7 BYTE 23 SECTOR 23 
aise 5 B500 poosie 312 RR. a2 
4144 016302 104417 TLOADRK ;LOAD RK REGS 
4145 016304 104424 TWAT32 ‘WAIT FOR INTERRUPT 
HN 016306 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
4148 016310 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
4149 016312 104004 ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
4] 16314 037526 3 R4, GENCOM ;COMPARE DATA 
dis Bigsed Taio iSGo00 pip 
vies Bibi Bld Biron | nF i 
4} 
4187 016390 013700 001634 ni MOV ERRLMT, RO sGET ERROR LIMIT 
vies Glee Bie 7g Se sPECRETENT oun 
Hep t 037526 ISR R4, GENCOM >CONTINUE DATA COMPARE 
41 1 ; ~ EXIT 
| ties Biese Sate Boon fi NORE ern, 
4164 016352 000770 BR 64S +LOOP 
alee 16354 65S: 
| 4167 016354 1S: 
4168 o SEALE SAEALERAARRAEEEAAAR AAS RAE SE RAALA RASS AAS RRARSA RAS ERARSEE 
| 4168 t ETEST 53 TWO SECTOR READ DATA (PART 3) 
| 
| 
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DZR6KB.P11 TS3 WO SECTOR R Re 






AD DATA (PART SEG 0113 











% ISSUE A READ DATA OF 401 WORDS TO CYLINDER 312, 
TRACK 0, SECTOR 10. VERIFY THAT ALL 401 WORDS’ 
ARE PLACED IN MEMORY. 


NOTE: TWO SECTOR WRITE DATA (PART 3) MUST BE 
EXECUTED BEFORE THIS TEST. 


[;E Ree neeneeeeeennernnnane nee rnenenenennenteneateneines 












016354 O00004 gress 

016356 012737 oO00062 od1262 soy #50. ,STIMES ;:D0 50. ITERATIONS 
016364 104416 TSSINIT seas AR SUBSYSTEN 
016366 104003 ERROR 3 INIT ERROR 








; GENERATE SAME DATA AS usep IN TWO SECTOR WRITE (PART 3) 
016370 004437 037526 JSR R4, GENCOM ;GENERATE DATA 
o0000e 4 :PATTERN 2 
016376 O00401 401 3401 WORDS 
O16400 004437 037526 JSR R4, GENCOM ;CLEAR "BLFF TO ALL ONES 

































016410 004437 033324 JSR R4, LRLOAD sLOAD “L” REGS 

016414 000121 RDDATA ;RODATA 

16416 177377 “401 *=401 WORDS 

16420 OS6446 IBUFF *IBUFF IS BUFF ADDRESS 

Dib4ee2 010 -BYTE 10 ;SECTOR 1 10 

016423 000 “BYTE 0 0 

016424 000312 312 CYLINDER 312 

O1642 104417 TLOADRK sLOAD BK 

016430 104424 TWAT32 cH RGa’y ATERRUPT 

016432 104002 2 SLOW/NOT COMPLETE ERROR 

016434 104421 TCHKOP ental OPERATION FOR ANY ERRORS 

016436 104004 ERROR 4 ;0R5, 6, 7, 10 ;REPORT ALL ERRORS 

D16440 004437 037526 JSR R4, GENCOM COMPARE DATA 

016444 100000 100000 

016446 00040 401 sot WORDS 

016450 00041 BR ig NO_MISCONPARES-SKIP 

Ole452 10401 ERROR 1 PRI FIRST ERROR 

16454 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 

16460 64S: DEC RO *DECREMENT COUNT 

16462 001406 BEQ 65S IF ZERO = EXIT 

BieteH 037526 JSR R4, GENCOM “CONTINUE DATA COMPARE . 
164 40000 7 
016472 o0040e2 BR 65S sNO MORE ERRORS - EXIT ; 
DibH7S 04016 ERROR 16 REPORT NEXT ERROR I" 
164 BR 64S *LOOP 

ot 65S: 


1$: 
5 5 RRRRRRLEELR EER LR RAE REE RAR EAE REA RLA RAE RARER SEAL AAR LL AREA ELAE 
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4281 jp RERRRRLRELA RES EE ERLE REAR REE ELLE RAE RAE RAAREA EAA R RARE RAR RE RE RAES 


TS4 RANSFER SEEK ON (PART I SEQ 0114 

422 s#TEST 4 MID-TRANSFER SEEK ON READ (PART 1) 

4228 i* ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312 

4229 2% TRACK 0, SECTOR 2S. VERIFY THAT CORRECT DATA IS 

4230 33 READ AND A MID-TRANSFER SEEK DOES OCCUR. 

We3e % NOTE: MID-TRANSFER SEEK ON WRITE (PART 1) MUST BE 

4233 > EXECUTED BEFORE THIS TEST. 

4235 * LERRERAAARAAAA LA LAA LAA RAL KERR L ELLE SA SELLE LASALLE A RASA KSEE SKAEEE 

4236 016500 O00004 +8Tcu: PE 

4237 016502 012737 O00062 001262 MOV #50. , STIMES ;:D0 50. ITERATIONS 

4238 016510 104416 TSSINIT :CLEAR SUBSYSTEM 

ig33 O165i2 104C03 ERROR 3 *BAD INIT ERROR 

4p4] ag ; GENERATE SAME DATA AS USED IN MID TRANSFER SEEK ON WRITE (PART 1) 

4249 016514 004437 037526 JSR R4, GENCOM ;GENERATE DATA 

4243 016520 000003 3 : 

dou OleS2e 001000 1000 : 1000 WORDS 

4YO4R O16524 004437 037526 ISR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 

4247 016530 002007 2007 

dee 016532 001000 1000 

4250 016534 004437 033324 JSR R4, LRLOAD ;LOAD “L” REGS 

4251 O1bS4O 000121 RODATA * RDDAT rs 

use5 ste Aeende IBUFF tooo WOR IS BaFF ADDRESS 

4254 O16S46 N25 -BYTE 25 SECTOR 2S 

4295S 016547 000 “BYTE O TRACK O 

Heeb 016550 000312 312 *CYLINDER 312 

4258 O165S2 104417 TLOADRK sLOAD RK REGS 

4259 016554 104 TWAT32 sHAIT FOR INTERRUPT 

ieb0 O16556 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 

4262 O16560 104421 TCHKOP - CHECK OPERATION FOR ANY ERRORS 

ices 016562 Baoo4 ERROR 4 ;0R 5, 6, 7, 10 ;REPORT ALL ERRORS 

4265 016564 004437 037526 JSR R4, GENCOM ;COMPARE DATA 

4266 016570 100000 100000 

4267 016572 001000 1000 ; 1000 WORDS 

4268 016574 000413 BR 1S *NO MISCOMPARES-SKIP 

ugb8 016576 104015 ERROR 15 ?PRINT FIRST ERROR 

4271 016600 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 

4272 O16604 005300 64S: DEC RO : DECREMENT COUNT 

4973 016606 001408 BEG 65S IF ZERO = EXIT 

4074 016619 004437 037526 JSR R4, GENCOM *CONTINUE DATA COMPARE . 

4975 016614 O40000 40000 

4276 016616 000402 BR 65S ;NO MORE ERRORS - EXIT : 

4 bbe 10401 ERROR 16 ;REPORT NEXT ERROR 

4 1 BR 64S LOOP 

4279 016624 65S: 

4280 O1b624 1$: | 
| 
} i 
{ ! 
| ae | 
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OZREKB.P11 MID-TRANSFER SEEK ON READ (PART 2) SEQ 0115 


000062 O0l2be 


= Seeeeese eee eee eeece 
SONSREE WON Bis Roe 


& 
a 










s TEST ss MID-TRANSFER SEEK ON READ (PART 2) 
1% i SSUE A READ DATA OF 1000 WORDS TO CYLINDER 312 
2% TBR K ofp ECTOR C5 ae ERIEY THAT THAT eCQeRECT DATA 18 
h MID-T E 
2x NOTE: MID-TRANSFER SEEK ON WRITE (PART 2) MUST BE 
ce EXECUTED BEFORE THIS TEST. 
FFL i+ iieieieilllieieieieliieieieideliiieieeieieiiabioeieai 
#50. , STIMES ::D0 SO. ITERATIONS 
TSSINIT : CLEAR SUBSYSTEM 
ERROR 3 “BAD INIT ERROR 
: GENERATE SAME DATA AS USED IN MID TRANSFER SEEK ON WRITE (PART 2) 
JSR R4, GENCOM GENERATE DATA 
4 *PATTE 
1000 1000 WORDS 
JSR R4, GENCOM ;CLEAR iBUFF TO ALL ONES 
1000 
JSR R4, LRLOAD ;LOAD “L” REGS 
RDDATA ;RODATA 
-1000 *=1000 WORDS 
IBUFF *IBUFF IS BUFF ADDRESS 
“BYTE 25 *SECTOR 25 
"BYTE 2 TRACK 2 
312 *CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWATE4Y *WAIT FOR INTERRUPT 
ERROR 2 >TO SLOW/NOT COMPLETE ERROR 








-CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 













JSR R4, GENCOM ;COMPARE DATA f 
100000 4 
1 31000 WORDS 
BR 1$ MISCOMPARES-SKIP 
ERROR 15 REPORT FIRST ERROR 
MOV ERRLMT,RO ;GET ERROR LIMIT 
64S: DEC RO ; DECREMENT COUNT 
BEQ 65$ SIF ZERO - EXIT 
uae R4, GENCOM CONTINUE DATA COMPARE 
BR 65$ MORE ERRORS - EXIT 
ERROR 16 REPORT NEXT ERROR 
64S : LOOP 


65S: 
33 AHHH aR 


— a mn nS 
-_ _ 
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TS6 CYLINDER ADDRESS OVERFLOW (PART 1 SEO O116 
4338 ; TEST 6 CYLINDER ADDRESS OVERFLOW (PART 1) 
4340 :% ISSUE A READ DATA OF 400 WORDS TO CYLINDER 
434 1% TRACK . SECTOR fe MAKE SURE CYLINDER ADD Zee 
ast ii OVERFL § NOT 
4344 * “ eagas ee agaaante epptgpemnre peng ante meatemepaaaata cam recemmitei 
4345 016750 O00004 +é755: SCOPE 
Hue 16752 012737 OO0062 001262 MOV #50. ,STIMES ::D0 SO. ITERATIONS 
4347 016760 104416 TSSINIT CLEAR SUBSYSTEM 
4348 16762 104003 ERROR 3 AD INIT ERROR 
4350 016764 004437 033324 ISR R4, LRLOAD L080 "L” REGS 
ee Here he or SE loos 
4 Bt 774 Aeeue IBUFF SIBUFF IS BUFF ADDRESS 
4354 016776 025 -BYTE 25 SECTOR 2S 
4355 016777 oo2 ‘BYTE 2 TRACK 2 
435B 17000 000632 632 *CYLINDER 632 
4358 017002 104417 TLOADRK sLOAD RK REGS 
4359 017004 104434 TWAT1S9 sHAIT FOR INTERRUPT 
4360 017006 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
4362 017010 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
4363 O170l2 104004 ERROR ORS 10 ;RE! ALL ERRORS 
uIS4 : jsupeeriteanenntanbenethasbashonnelaseaneanienssearseseenceentey 
W365 : ; ATE CYLINDER ADDRESS OVERFLOW (PART 2) 
436 it ISSUE A READ DATA OF 401 WORDS TO CYLINDER 632 
4368 +x TRACK 2, SECTOR 25. MAKE SURE CYLINDER ADDRESS 
4388 s OVERFLOM ERROR DOES OCCUR. 
4371 SLE EERE LSS ELSE EER ESSER LESS LESSEE LEELA SRL EHR EE TREE RRR EE EKER ERSSES 
4372 017014 +é157: SCOPE 
4373 017016 012737 O00062 001262 MOV #50. , STIMES ;:D0 50. ITERATIONS 
4374 017024 10441 TSSINIT -CLEAR SUBSYSTEM 
4375 017026 104 ERROR 3 "BAD INIT ERROR 
4377 017030 004437 033324 ISR R4, LRLOAD sLOAD "L” REGS 
4378 017034 900121 RDDATA ;RODATA . 
4379 017036 177377 -401 *=401 WORDS 
4380 017040 O56446 IBUFF *IBUFF IS BUFF ADDRESS 
4381 017042 025 -BYTE 25 SECTOR 25 
4382 017043 002 "BYTE 2 TRACK 2 
4383 017044 000632 632 *CYLINDER 632 
4385 017046 104417 TLOADRK LOAD RK REGS 
4386 017050 104434 TWATIS9 WAIT FOR INTERRU 
4387 017052 104002 ERROR 2 TO SLOW/NOT ERRPL ETE ERROR 
4389 017054 104422 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
4390 017056 001000 COERR CYLINDER OVERFLOW 
439] 017060 000000 0 
4392 017062 000000 0 
4393 017064 !04004 ERROR 4; OR 5,6,7 sREPORT ANY uiSCREPANCIES 


am a a a 













Se 


SF FS5SREWORRZAS 


01717e 


TS? 


0127 
18137 
012737 


Tovae1 


£04004 


017216 


prog 
oie6? 
000312 
033644 


001110 


061600 
001610 


001614 


-SBTTL ##18 BIT DATA TRANSFER TESTS 
5 RRR H RARER EE KEE EE EEE REEL E EAS EE EEE EEE EEE A EERE EER EEEEE EEE 


ATEST 


jeans 


1S: 


es: 


oe 
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DZREKB.P11 CYLINDER ADDRESS OVERFLOW (PART 2) 


60 
FORMAT CYLINDER 312, TRACK 0, AND TRACK 1 


pee 
occu 


ay 
MOV 
CLR 


TSSINIT 


ERROR 


MOV 
MOV 


JSR 
1200 


TLOADRK 
TWAT1S9 
ERROR 2 


TCHKOP CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 
SCOP sLOCAL LOOP ON ERROR TO 1$ 
TST Ri sR POINTING TO TRACK 0 
BNE 2g 
Inc Ri : BUMP TO TRACK 1 
MOV #35, SLPERR ISET LOCAL LOOP ON ERROR 
CLR Ri CLEAR TRACK POINTER 

INIT sCLEAR SYSTEN 
ERROR. 3 BAB INET ERRO 
MOV #ROHEAD! CFMT,L. eft «LOAD READ “2a SECTOR FORMAT 
MOV RVNUM.L.CS2’ Load DRIVEN 
MOVB 1.L.D 
MOV #312,L.0CYL in CYLINDER 
ISR R4, ROSTHD :GO_READ TAN ARD HEADER 

HKOP RETURN IF CERR W/O DATA LATE SET 

ERROR 4; OR5,6,7 . ;REPORT ALL OOTHER ERRORS 


WITH WRITE HEADER ON IN READING DATA BUFFER 
AFTER READ HEADER. 


197 yg "> paiguenagrpiaaaret row pnn: gamma ree weer ey 
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SEG 0117 









FORMAT IN 24 SECTOR FORMAT 





FOR 24 SECTOR 
VERIFY FORMAT AND THAT DATA CATE DID NOT 





tk STIMES 


-D0 SO. ITERATIONS 
$, $LPERR 


Ser LOCAL LOOP ON ERROR 
:CLEAR R1 FOR TRACK COUNTER 





;CLEAR SUBSYSTEM 
3 INIT ERROR 
WWRHEAD!CFMT,L.CS1__;SET UP FOR WRITE HEADER 24(8) SECTOR MODE 
il ral we” L.cSe’ ag ie ee 


WORD COUN 
LOAD TRACK BDURESS 
SET BUS ADDRESS 
CYLINDER ADDRESS 
;GENERATE HEADER 
INCLUDE BAD SECTOR BITS 
;LOAD RK REGS 


;WAIT FOR INTERR 
TO SLOW/NOT CONPLETE ERROR 


R1,L.0T 
#OBUFF,L.BA : 
#312,L:DCYL : 


R4, GENCOM 

























a re RS RTS 
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:¥TEST 61 24 SECTOR FORMAT DATA TRANSFER (PART 1) 

* ISSUE A WRITE DATA OF 400 WORDS IN 24 SECTOR FORMAT 

3% TO CYLINDER 3le TRACK O KO, SECTOR 0. READ SECTOR BACK 

i ANO MAKE SURE Tt IS 


_ intra lm ait atin ae mt 


Be hat SERER ERE 
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DZREKB.Pi! TEQ = FORMAT IN 24 SECTOR FORMAT 
W450 17260 104013 ERROR 13 sREPORT DATA LATE 
W451 017262 104002 ERROR 2 {REPORT “OPERATION TO SLOW” OR “HEADER 
4452 [0 NOT FOUND” MESSAGE 
qu OL72EN 104415 SCOPL sLOCAL LOOP TO 3S ON ERROR 
#55 Qlveee OMe? 037526 JSR RY, GENCOM {GENERATE & COMPARE HEADERS 
wise 1 101200 101200 s INCLUDING BAD SECTOR LISTS 
izes O00413 45 HISCONPARES-SK IP 
4458 017276 104015 ERROR 15 REPORT FIReT ATSCOMPARE 
4460 917300 013700 001634 MOV —- ERRLMT, RO ;GET ERROR LIMIT 
4461 01 YS: DEC RO SDECREMENT COUNT 
01 007906 <n SIF ZERO = EXiT 
463 01731 37 037526 JSR ——-RY, GENCON CONTINUE DATA COMPARE 
wed 017318 40000 
4465 017316 bss ;NO_MORE ERRORS = EXIT 
| ee 017320 104016 ERROR 16 | SREPORT NEXT ERROR 
4467 017322 000770 bus SLOOP 
#68 017324 65S: 
wo 017324 1041s 4S:  SCOPL sLOCAL LOOP TO 35 
4471 01732 005701 TST = RI :POINTING TO TRACK 1 
017330 001002 BNE SS ;NO-EXIT 
01 005201 INCI :BUMP TO TRACK 1 
017334 000730 BR 38 ;LOOP 
017336 
{ 
} 
| 
} 
{ 
! 
; 
! 







017336 900004 téte1: SCOPE 
bree 01737 000062 cOlabe FOV | y #50-,STINES 5,00 50, ITERATIONS 
sep ERROR 3 S BAD INET ERROR 
17352 OOua? 037526 JSR —_-R4, GENCOM sGENERATE DATA 
4491 617356 00001 1 PATTERN 13 
| age 017360 ented :400 WORDS 
| 484 017362 37 037526 JSR RY, GENCOM ase IBUFF TO ALL ONES 
| ase BiaSee Bboaae 2007 
| aN 017370 900400 400 
| SB 17372 oow37 033024 JSR _— RY LRLOAD ;LOAD “L” REGS 
333 17378 b101e3 WRDATA! CENT sWROATA!CFMT 
01 =400 :=400_ WORDS 
| 174Ge OBUFF SOBUFF. 15 BUFF ADDRESS 
1 “BYTE SECTOR 
17405 BYTE TTRACK O 
W504 017406 o00312 312 — 'CYLINDER 312 
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ZREKB.P 34 SECTOR FORMAT DATA TRANSFER (PART 1) SEG 0119 
4506 O17410 104417 TLOADRK ;LOAD RK REGS 
4507 O174le 104424 TWAT 32 * WAIT FOR INTERRUPT 
4508 017414 104002 ERROR 2 *T0 SLOW/NOT COMPLETE ERROR 
4519 Ol 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
weil 1 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
4513 017422 004437 033224 JSR RY, LRLOAD “LOAD “L” REGS 
4514 bimeb 0191e1 RODATA! CFMT -RDDATA!CFMT 
4515 017430 177400 400 -400 WORDS 
4516 017432 OSE446 IBUFF t TRUFF IS BUFF ADDRESS 
4517 017434 900 -BYTE 0 ; SECTOR 0 
4518 017435 000 "BYTE 0 0 
4313 617436 000212 3le2 CYLINDER 312 
4521 O1744O0 104417 TLOAORK sLOAD RK REGS 
uSe2 017442 «1044e4 TWAT 32 iaait FOR INTERRUPT 
4523 017444 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
dese Di7446 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
4526 017450 104004 ERROR 4 ;0R 5, 6, 7, 10 ;REPORT ALL ERRORS 
we58 O174S2 004437 037526 JSR R4, GENCOM sCOMPARE DATA 
| 4529 o1mes 1 100000 
i 4530 01 ;400 WORDS 
| 4531 O17462 00041 BR 1S NO MISCOMPARES-SKIP 
| iba O17464 104015 ERROR 15 *REPORT 1ST ERROR 
| 4534 917466 013700 001634 MOV ERRLMT,RO GET ERROR LIMIT 
4535 017472 005300 64S: DEC RO ; DECREMENT COUNT 
ox 017474 001 BEQ 65S 2 IF - EXIT 
017476 004437 037526 ISR R4, GENCOM *CONTINUE DATA COMPARE 
| 4538 017502 o40000 40000 
| 4539 017504 oo0402 BR 65S sNO MORE ERRORS - EXIT 
| 4540 O17506 104016 ERROR 16 *REPORT NEXT ERROR 
| 4541 017519 000770 BR 64S *LOOP 
| 4542 017512 65S: 
| 4543 
| 4544 017512 1S: 
[ HOaE ; peer Eo od CECTOR FORMAT DATA IRQESER (PERT DP 
| weve ja EST 62 24 SECTOR FORMAT DATA TRANSFER (PART 2) 
| dye if non BRbS IN ot SECTOR FORMAT YO CHLINOER STP TRACK O. 
ueeg * i SECTOR or Geo LTH FER BEGINN ING 70 6 honbs WORDS BEF 
| 455i = ITH BAD MAKE SURE UNIBUS PARITY ERROR DOES NOT SET. 
| 4552 ii READ SE RTOR BACK AND HARE SURE TT Is CORRECT 
; 4 
ueea 3 EST J Y IF MEMORY PARITY 
| sees f ENtere Por SPECIFIED LOCATION. 
1 4557 [eeeeeenaeeaeesneneeneaneanennenneananeneeneennannsneanetion 
ey Rae ee itt 
4559 017514 01 000062 001262 aby STIMES ; D0 SO. ITE TIONS 
4560 017522 032737 000200 OO1ESe BIT spn, OPTFLG PARITY option PRESENT? 
017530 BEQ : YES-SKIP 


f 





RK611 FUNCTIONAL 
OZREKB.P11) 
4562 
es ot 004437 
4 Ol 000014 
4565 017540 000400 
wee? O17S42e 01274 
4568 017546 912746 
wea 175Se Oo0000e 
017554 
4571 : 
Wes Bisee> boi409 
4574 O17564 012777 
em tines blere 
wer? Gizebe D1e737 
4579 Bi see2 Bae79? 
4580 Bi7e58 1 
4581 017632 012777 
4583 Tay ee 
4585 017650 Basocs 
4586 Bi ees 
4688 BI7eeH ipyaes 
4589 O01 
Wea0 Dlveee b101s3 
4591 017664 177400 
45392 017666 O60446 
4553 fiero 000 
45H 017671 000 
4595 017672 O003i2 
4596 
wee pier 104417 
$8 017676 104424 
4599 017700 104002 
4600 
Pri 017702 104421 
017704 104004 
4603 
4605 
4606 
4607 017706 005077 
4508 017700 032737 
4610 1575p 
ueiS pi77es 
461 17732 
4613 017736 004737 
4614 
4615 017742 
4616 
4617 
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24 SECTOR FORMAT DATA TRANSFER (PART 2) 


001656 
162110 

162100 
gene70 


162056 
001656 
162042 


001656 


18: Ise R4, GENCOM sGENERATE DATA 
400 :400 FOROS | 
MOV 8PR7,-(SP) :SET PRIORITY TO 7 
Mov $108; -(SP) :SET ADDRESS 
103: 
BIT SPARBK1,OPTFLG ;TEST IF BANK 1 AVAIL 
BEQ *NO = SKIP 
MOV #B1T2,aMMCSR2 ;SET WRONG PARITY WRITE 
S$: MOV #BIT2 aMNCSRI ;SET WRONG PARITY BIT 
MOV 8-1,0BUFF+c22 WRITE WITH BAD PARITY 
MOV -1" OBUFF +220 
MOV #BITO,aMMCSR1 ;CLEAR WRONG PARITY, SET IE 
BIT ARBK1, TEST IF BANK 1 AVAIL 
BEQ 6$ *NO - SKIP 
MOV 8BITO, IMMCSR2 
6S: MOV RKPRI, -(SP) sRESTORE PRIORITY 
MOV #11$,-(SP) 
118: sits 
* -TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
ISR R4, LRLOAD *LOAD “L™ REGS 
WROATA! CENT -WROATA!CEMT 
-400 ;-400 S 
:OBUFF IS BUFF ADDRESS 
-BYTE 0 ; SECTOR 0 
“BYTE O TRACK O 
312 :CYLINDER 312 
TLOADRK 
TWAT32 shart FOR TATERRUPT 
ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
ERROR 4 :0R 5, 6, 7, IG TREPORT ALL ERRORS ERRORS 
R UNTBUS PARITY -bRmbn REPORTED u THIS 
PROPERLY TRANSFERRING DATA IN 3 BIT MODE 
CLR OMMCSR1 ;CLEAR IE 
BIT #PARBK1, OPTFLG 
_ 
7$: CLR bas 
CLR OBUFF+ 
JSR PC, OPTTST ;RESET OPTIONS 


jReeveveeeneneresranevereneaeaeesereveneveneataceneneceneataeaty 


TEST x} 


24 SECTOR FORMAT DATA TRANSFER (PART 





SEG 0120 








~~ ee 


RK 


o 
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DZREKB.P1 24 SECTOR FORMAT DATA TRANSFER (PART 3) SEG 0121 
4618 ;# 
4619 # ISSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FORMAT 
deed :# T0 BE TNOER gf Paar f See TOR yy READ SECTOR BACK 
1 + AND MAKE SURE It IS CORRECT. MAKE SURE THAT MID-TRANSFER 
sess i SEEK HAS TAKEN PLACE. 
oe FEELERS SSELEEEPSERERLEL ESSE ELE F FHSS SELES LS ERK EAS LEE ELF SF FALSERS 
4625 017742 o00004 té763: SCOPE 
Heb 017744 012737 000062 001262 MOV #50. ,.STIMES ;:D0 SO. ITERATIONS 
017752 904737 032434 JSR PC, OPTTST :SET UP OPTIONS 
4628 017758 10441 TSSINIT ‘CLEAR SUBSYSTEM 
i623 01 1 ERROR 3 :BAD INIT ERROR 
4631 017762 004437 037526 ISR R4, GENCOM GENERATE DATA 
432 017766 050015 15 :PATTERN 15 
1 001 1000 1000 WORDS 
ues 017772 004437 037526 JSR R4, GENCOM sCLEAR IBUFF TO ALL ONES 
4636 017776 002007 2007 
meld 020000 001000 1000 
ued pean Bigizy esse uRpATAICEMt ON 1 onD ne URDATALCFNT 
Weds DODDIe | BeOHHe ee ‘OBUFF. t Se mnenes 
mai . 
' 4643 920014 -BYTE 23 : SECTOR 33 
| 4644 O2001S .BYTE 0 : 0 
| 4645 020016 000312 312 :CYLINDER 312 
ueae g20020 104417 TLOADRK sLOAD RK 
| 4648 OS0022 104425 TWATE4 *WAIT FOR INTERRUPT 
| 4649 Ge00e4 1 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
| HEED 2006 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
| 4652 020030 104004 ERROR 4 ;0R5, 6, 7, 10 ;REPORT ALL ERRORS 
| 68% 20032 oowg7 033324 JSR RY, LRLOAD ;LOAD “L* REGS 
| 4B55 020026 010121 RDDATA!CFMT *RDDATA! CFMT 
aes ceoote THUPE tTBUEE WORDS ADDRESS 
| 4658 -BYTE 23 s SECTOR 23 
wee rari pons 312 RL INOER 312 
WEED 020050 104417 TL ;LOAD RK REGS 
| 4663 O200S2 104425 TWATEY *WAIT FOR INTERRUPT 
obs 020054 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
| 4665 020056 104421 TCHKOP - CHECK TION FOR ANY ERRORS 
| Neb? Ge0060 104004 ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
4669 O20062 004437 037526 JSR R4, GENCOM COMPARE DATA 
4670 1 100000 
4671 d20079 001 1000 ;1000 WORDS 
46 00041 BR i$ *NO MISCOMPARES-SKIP 
4673 020074 10401 RROR | "REPORT FIRST ERROR 
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T§3 24 SECTOR FORMAT DATA TRANSFER (PART 3) SEQ 0122 
4674 
4575 dGedo7é 013700 001634 MOV ERRLMT,RO GET ERROR LIMIT 
4676 029102 005300 64$: DEC RO ; DECRENENT COUNT 
4677 O20104 O0140E BEQ 65S XIT 
45 920105 037526 ISR R4, GENCOM CONTINUE DATA COMPARE 
4679 O2011 4O000 
4680 020114 900402 SR S$ :NO MORE ERRORS - EXIT 
4681 OeD1IE 104016 ERROR 16 *REPORT NEXT ERROR 
#82 020129 000770 BR - 64S LOOP 
de0le2 65S: 
4684 
4B8S Oe0l22 1S: 
dee .SBTTL #*SPECIAL DATA TRANSFER TESTS Spe 
bog . ivect EM MALTL-SECTOR DATA TRAGER AD Eee 
Heo ; ATE MULTI-SECTOR DATA TRANSFER AND BSE 
46 i FORMAT CYL TRACK 0. IN CTOR FORNAT WITH 
des } T HARKER BAB’ S bef fe BATA. OF 600 WORDS 
4694 ie 75° OrCAD 312 TRACK ip SUE ET HAKE SURE BAD SECTOR 
4695 iH ERROR SETS AND RKDA coe. Sean CEETOR Ti oho 
4b36 i MAKE SURE IT IS CORRECT 
4699 2 # ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 0, 
4699 x SECTOR 0. MAKE SURE BAD SECTOR SETS AND THE 
4700 ii PREVIOUS SECTOR IS LOADED CORRECTLY INTO MEMORY. 
4702 } o SLERLELEL FLERE ERA RE SHE EE LAE LEED LLA LEA ERE SREL LE RS KE LESSER LLL ESS 
4703 O20122 OO0004 +éT64: 
4704 De01e4 012737 o00062 001262 ROY #50. , STIMES 3,00 SO. ITERATIONS 
i 
we is ee bale" 5 Dn eae 
4708 020136 004437 033324 - JSR R4, LRLOAD sLOAD “L” REGS 
ate pooled SoeeSe tHe 103 WORDS 
4711 20146 O60446 OBUEF : IS BUFF ADDRESS 
wis peniey ve BYE 0 sFeCTOR O 
pra ranted poosse 312 *CYLINOER 312 
4716 020154 004437 037526 ISR R4, GENCOM ;BUILD HEADERS 
W717 020160 000600 600 
| 4719 020162 042737 O4O000 OE604SE BIC--  #BIT14,OBUFF+10 ;MARK SECTOR 1 BAD 
i720 020170 042737 O40000 O60460 BIC #BIT14,OBUFF+12 ;CORRECT HURC 
4722 020176 104417 TLOADRK sLOAD RK REGS 
4723 104431 TWATI12 hart FOR INTERRUPT 
we Depepe 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
4 02020 1oaet TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
we Ne0e0e «1 ERROR 4 ;0R 5, 6, 7 ;REPORT ALL ERRORS 


4729 020210 OCO4437 037526 JSR R4, GENCOM ;GENERATE DATA 











a re ee ee 


Vii of 


8 
-_ 
<= 
rey 
oo 


ate 


. 
RB 


Ss 


g 


° 


— 
- 





: 


es! 


B 
tw 





#1000" HORS 


;CLEAR IBUFF TO ALL ONES 


sLOAD "L™ REGS 
;WROATA 
~1000 WORDS 

t OBUFF IS BUFF ADDRESS 

s SECTOR 0 

CYLINDER 312 

:LOAD RK REGS 

;WAIT FOR INTERRUPT 

*TO SLOW/NOT COMPLETE ERROR 

;CHECK OPERATION WITH EXPECTED ERR 

;BAD SECTOR ERROR 

sREPORT ALL DISCREPANCIES 

cee ae . TRK Sect CORRECT AFTER ABORTED WRITE 
-TRK IN ERROR? 

;NO-SKIP 

*"TRACK ADDRESS INCORRECT™ 

“EXPECTED VALUE 
seo vA WRITE DATA TERMINATED WITH BSE” 
sEXIT 

sECTOR, IN ERROR? 


a" “SECTOR | POORER A NCORRECT™ 
3° wee ABORTED WITH BSE” 


se oor ON ERROR 
;CLEAR SUBSYSTEM 


5B tT 
sROSaTR 
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Té4 MULTI-SECTOR DATA TRANSFER AND BSE SEO 0124 
104417 TLOADRK LOAD RK REGS 
aoe8 Geis Oued WaT Je iiait FOR INTERRUPT 
4788 104062 EAR 2 :TO SLOW/NOT COMPLETE ERROR 
4790 O2044— 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
aras O204S0 104004 ERROR 4 ;0R5S, 6, 7, 10 ;REPORT ALL ERRORS 
4 De04S2 004437 037526 JSR R4, GENCOM ;COMPARE DATA 
urse GSONE6 900500 ae WORDS 
tr48,,- 8 . 
479% Oe046e Boot BR 4§ INO MISCORPRRES-EXtT 
pla O20464 104015 ERROR 15 :REPORT FIRST ERROR 
4 001634 V RRLMT, RO IT 
weeg bere 64S: C FR iSEtaErent Count 
4801 74 001406 BEQ 65S 
4B0e totais Pato 037526 JSR R4, GENCOM CONTINUE “DATA T coMPARE 
4804 oe 65S ;NO MORE ERRORS - EXIT 
480S O20S06 104016 ERROR 16 “REPORT NEXT ERROR 
4806 620510 000770 BR 64S LOOP 
4807 Oe0Sl2 65S: 
gos 020512 0044327 037526 4S: JSR R4, GENCOM ;CLEAR IBUFF 
4810 029516 002007 2007 
4B 020520 001000 1000 
4813 O20S22 004437 033324 ISR R4, LRLOAD sLOAD “L” REGS 
; 4814 Se0Seb 000121 RDDATA ;RODATA 
4815 177000 -1000 1000 WORDS 
4816 OSE446 - IBUFF STBUFF IS BUFF ADDRESS 
4817 020534 000 BYTE g sFECTOR 0 
uBt popes oooste 312 >CYLINDER 312 
WEST O20S40 104417 TLOADRK sLOAD RK REGS 
ies C2e0s42 104424 TWAT32 “WAIT FOR INTERRUPT 
Ce0s44 104002 ERROR 2. >TO SLOW/NOT COMPLETE ERROR 
upoe 02054 1044 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
ues? 1 BSERR BAD SECTOR ERROR 
re 04004 ERROR 4; OR 5,6,7 sREPORT ALL DISCREPANCIES 
4831 ISR R4, GENCOM sCOMPARE DATA AGAIN 
4832 100000 
a - NOMS ECORPARES 
ues ERROR 1 REPORT FiRSt ERROR 
Wee MOV ERRLMT, RO ;GET ERROR LIMIT 
4838 66S: DEC RO *DECREMENT COLINT 
Q 67S *IF ZERO = EXIT 
| 4640 JSR RY, GENCOM ;CONTINUE DATA COMPARE 
| 
{ 
j 
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Té4 


4842 Oe06le O0040e 


e duo78 


sss 


012737 





020706 
020712 





o0cssi O0l26e 
020640 001110 


1 1610 
ovis? 001600 
001607 
O60446 001604 
177676 001602 
000312 001614 
037526 
020750 001110 
033324 


a FN Bh 
rm i i 


Tri gaan <=. §: geanmmenromemmoessen 


i Ate CYLINDER 312, TRACKS 0 AND 1 IN 26 SECTOR FORMAT. 
3% ne SURE NO ERRORS SET. READ SECTORS O-25 AND MAKE 
i DATA CHECK DOES NOT OCCUR. 


ile OIG ee ec ee 


MOV 81, STIMES ITERATION 
CLR RO Pea TRACK COUNTER 
MOV #1$, SLPERR *SET LOCAL LOOP 

1S: 
TSSINIT sCLEAR SUBSYSTEM 
ERROR 3 *BAD INIT ERROR 
MOV DRVNUM,L.CS2 ;LOAD DRIVE 
MOV #WRHEAD,L.CS1 TOAD WRITE HEADER 
MOVB  RO,L.DT sb DESIRED TRACK FROM TRACK COUNTER 
MOV L.BA : ADDRESS 
MOV #-102 Q wc : C 
MOV #312,0.0CYL : CYLINDER 
JSR RY, GENCOM ;BUILD HEADER 
1200 *WITH BSE FLAGGED 
TLCADRK sLOAD RK REGS 
TWAT1I2 ;WAIT FOR INTERRUPT 
ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
TCHKOP oun OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 
SCOP1 sLOCAL LOOP TO 1$ 
ae OSS RO-PXISE 
INC RO : BUMP 
BR 1$ LOOP 

2s: CLR RO CLEAR SECTOR COUNTER 
MOV #113$,SLPERR § ;SET LOCAL LOOP ON ERROR 

1138: 

= TSSINIT ;CLEAR SUBSYSTEM 
a ERROR 3 "BAD INIT ERROR 
° JSR R4, LRLOAD sLOAD “L” REGS 

RDDATA ;RODATA 
-400 =400 WORDS 


SEO 0125 




















4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 021024 
4932 asics 
ga) O21036 
4936 021040 
4937 asi 
08 
494 test 
5 
| 4944 te ee 
nea 3 21 
| 4948 tte 
| #3 fi 
s2 021074 
| 4965 Belov 
| 
| 
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4898 020764 
020767 








FORMAT TEST SEG 0126 


OS6446 IBUFF ; IBUFF 1S BUFF ADDRESS 

000 BYTE 9 sSECTOR 0 

‘BYTE 0 ACK 0 

00031 312 CYLINDER 312 
110037 001606 MOVE —RO,L.DS sLOAD SECTOR COUNTER INTO CESIRED SECTOR 
104417 TLOADRK sLOAD RK REGS 
104424 THWAT32 {WATT FOR INTERRUPT 
104002 ERROR 2 ;T0 SLOW/NOT COMPLETE ERROR 


104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
104415 SCOP1 sLOCAL LOOP TO 3$ ON ERROR 


g22700 00024 CMP #24, RO ;LAST SECTOR READ? 
O01402 * BEQ 4S ; YES-EXIT 

005200 ue INC RO jBuN SECTOR COUNTER 
000754 by 3$ LOOP 


4§: 
-SBTTL #*#WRITE CHECK TESTS 


; 1 gy ama oe Sm Soa mea catcmmrmanine 
j4TE WRITE-CHECK WITH NO ERROR 


te WRITE CYLINDER 312, TRACK 0 SECTOR O WITH A KNOWN PATTERN. 
2 DO A WRITE-CHECK OF 400 WORDS: MAKE SURE NO 
i ERROR OCCURS. 








- elipeiaetatanseneataitiaiaiestateteneateteaaaeaemeiiiieeieimeannines 
000004 qgrest SCOPE 
012737 oo00062 001262 Nov as #50. , STIMES 3,00 SO. ITERATIONS 
i ERROR 3 BAD INET ERROR 
004437 033324 JSR R4, LRLOAD sLOAD "L” REGS 
000123 WROATA ;WRDATA 
77400 *=400 WORDS 
beaHae OBUFF *OBUFF IS BUFF ADDRESS 
000 -BYTE 0 SECTOR O 
000 “BYTE 0 TRACK 0 
000312 312 i CYLINDER 312 
JSR R4, GENCOM ; GENERATE _DATA 
400 400 
{ Thetee. SOIT FOR INTERRUPT 
ipugue ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
104421 TC “CHECK OPERATION FOR ANY ERRORS 


HKOP 
104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
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495S 021100 004437 033324 JSR R4, LRLOAD sLOAD “L” REGS 

4956 021104 000131 WRT CHK * WRTCHK 

4957 021106 1 “409 *=400 WORDS 

4 621119 O&0446 OBUFF ‘OBUFF IS BUFF ADDRESS 

4 Dell! .BYTE O ‘SECTOR 0 

4960 021113 000 “BYTE TRACK O 

4961 O21114 o003i2 312 *CYLINDER 312 

4303 O21116 104417 TLOADRK sLOAD RK REGS 

4964 021120 104424 TWAT32 “WAIT FOR INTERRUPT 

ie O2elle2 104002 ERROR 2 >TO SLOW/NOT COMPLETE ERROR 
4967 021124 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
4968 Oelle6 104004 ERROR 4 ;ORS, 6, 7, 10; ALL ERRORS 

49693 | HEHEHE Hai gaa ae 
4370 j RTEST 67 WRITE CHECK ERROR (PART 1) 

He 1b HRUTE SRE Bsa BO San AO ta 
4974 $# DATA EXCEPT 110 HAS’ ONE OF THE FOL oWING 

W376 ii CONFIGURATIONS: 

4977 ti 000001 oo00020 ooo400 010000 

4978 + 000002 O00040 OO1000 d20s00 

4979 + 000004 000100 oo2000 o4o000 

4380 ii 000010 000200 o04000 100000 

4982 i MAKE SURE WRITE CHECK ERROR SET FOR EACH 

4983 2% OF THE CONFIGURATIONS AND THAT THE BUS ADDRESS 

4384 33 AND WORD COUNT IS CORRECT. 

oat oe HEERES SEL ERE LS EA ELE LS ESS LES LE KES LE RES EELS EE RE RE RELA KEES LAER EERE 
4 021130 oo0004 tS167: 

4988 O21132 012737 O00062 001262 MOV #50. .STIMES ::D0 SO. ITERATIONS 

4989 021140 Ol2700 Ooo0001 MOV #81Tb,RO >SET LO ORDER BIT IN RO FOR 
4990 _ $CAUSING WRITE CHECK ERROR 
4991 021144 104416 TSSINIT “CLEAR SUBSYSTEM 

4992 021146 104003 : N 

4993 021150 004437 037526 JSR R4, GENCOM “GENERATE DATA, ALL 0’S 

4994 021154 000001 1 

4995 021156 O00400 400 

ager 021160 004437 033324 JSR R4, LRLOAD sLOAD "L” REGS 

4998 021164 000123 WRDATA *WRDATA 

4999 021166 177400 -400 jd00_ WORDS 

£000 ett 060446 OBUFF 0 IS BUFF ADDRESS 

6001 021172 000 .BYTE O *SECTOR O 

021173 000 “BYTE 0 “TRACK O 

5003 021174 oo03le2 312 “CYLINDER 312 

5005 021176 104417 TLOADRK ;LOAD RK REGS 

5006 021200 104424 TWAT32 “WAIT FOR INTERRUPT 

Zour O2l202 104002 ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
6099 021204 104421 TCHKOP sCHECK OPERATION FOR ANY ERRORS 











cr 
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ZREKB.P WRITE CHECK ERROR (PART 1) 
$010 021206 104004 ERROR 4 ;0R5S, 6, 7, 10 ;REPORT ALL ERRORS 
S0l2 021210 004437 033324 ISR R4, LRLOAD sLOAD “L” REGS 
abi fsisie T7400 Woo TM ane 
ate Bs isis beoue OBUFF ‘OBUFF IS BUFF ADDRESS 
5016 Oelece 000 -BYTE 0 s SEC CTOR O 
5017 Oelee3 090 “BYTE 0 TRACK O 
5018 O2i224 000312 312 CYLINDER 312 
5020 021226 104417 TLOADRK LOAD RK 
021 21230 1044 TWAT32 :WAIT FOR INTERRUPT 
s0ce 1 1 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
021 104421 TCHKOP + CHE RATION F FOR ANY ERRORS 
epsd ag 3? 1 EgHKS 4 ;0R 5, 6, 7, is SFEPORT ALL RRORS 
ease OS 021240 104415 SCOP LOCAL LOOP ON WRITE CHECK 
S028 Oele¥2 012737 921250 001110 MOV #1$. SLPERR SET LOCAL LOOP 
5029 021250 010037 O&0666 1S: MOV RO,OBUFF+220 ;CAUSE ERROR BIT IN BUFFER 
5030 021254 104416 TSSINIT *CLEAR SUBSYSTEM 
5031 021256 104003 ERROR 3 ;BAD_ INIT ERROR 
5032 Oele60 004437 033324 JSR RY, LRLOAD *LOAD ™ 
5933 O21264 000121 WRTCHK : 
5034 Oel266 00 -400 =400 WORDS 
5025 021270 OBUFF *OBUFF IS BUFF ADDRESS 
5036 Oele72 000 -BYTE 0 SECTOR O 
1273 000 "BYTE 0 TRACK O 
5038 O21e74 o003ie2 312 *CYLINDER 312 
S040 021276 104417 | TLOADRK LOAD RK 
5041 el 104424 . TWAT32 ha PORT 
! eote 021302 104002 ERROR 2 :T0 o OLENOT ERROL ETE ERROR 
5044 el 104422 TCHKWE sCHECK OPERATION WITH EXPECTED ERROR 
5045 081306 ooc000 0 , . 
5046 021310 Ooog004 WCKERR WRITE CHECK ERROR 
£047 O213l2 OoO0000 0 
S048 021314 104004 ERROR 4; OR S,6,7 sREPORT ALL DISCREPANCIES 
5050 021316 104415 SCOP1 ;LOCAL LOOP ON ERROR TO 1$ 
5052 ; NOTE: THE WORD COUNT AND BUS ADDRESS CAN BE EITHER OF TWO 
5053 : VALUES AND BE CORRECT. THE DIFFERENCE IS CAUSED BY WHEN THE 
ee | Ree Os to etEiUae SP Ween te eR Reta 
5056 : OCCURRE . IF WCE OPCURRED ef OME INGLE NPR CYCLE OR THE LAST 
5057 : YCLE OF A DOUBLE CYCLE, WC AND BA CONTENTS REFLECT THE 
| 5058 : RCTURL WORD WHERE THE ERROR WAS. 
5060 021320 023727 ODIS4H4 060670 CMP T.BA, OBUFF+222 ;CHECK BA HALT AT PROPER PLACE 
| 5061 Gelsee OOl4i6 BEQ 2s > YES-SKIP 
5062 021330 101037 BHI 6S SIF TO HI = SKIP 
5063 O21332 012737 050575 o014S0 MOV #EM11.EM1 “INCORRECT BA” 
| 5064 021340 0128737 060670 001202 MOV aOeUr 222, srecio ;GOOD VALUE 
| $065 021346 013737 OOISH4 001204 MOV T.BA, SREGIL BAD VALUE 
| 
i 





SEG 0128 





—— 





ET 


v 
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WRITE CHECK ERROR (PART 1) SEQ 0129 

S066 021354 012737 045477 oOsSS24 MOV BOPER41,DFOLGA ;"WRITE CHECK ABORTED WITH WCE” 
067 021362 104010 ERROR 10 
5069 021364 023727 OO1S¥2 177511 2S: CMP T.WC, #-267 s CHECK WORD COUNT AT CORRECT VALUE 
2070 Oe137¢ 1460 BEQ 3$ 2 YES-SKI 

71 Oe1374 O1 ososso o014s0 MOV #£M10, EM1ON :" INCORRECT WC” 
S072 Oel40e 912737 045477 O55524 MOV #OPERG! . DFOLOA jcURITE CHECK ABORTED WITH WCE” 
2078 021410 b1e737 77511 O01202 MOV #-267,$5REGIO  ;GOOD VALUE 

021416 O13737 O01542 001204 MOV T.WC, $REGII ERROR V 

5075 Oel4e4 104010 ERROR 10 
076 021426 2 3$ EXIT a 
5078 O21430 023727 O01544 060672 6S: CMP T.BA, SOBUFF+224 ; TEST IF BA AT HI SIDE 
5079 021436 00141 BEQ 7$ YES = SKIP 
5080 021440 O1 950575 001450 MOV #£M11. EM1ON °SET MESSAGE 
5081 Ocl446 O1 06067e 001202 MOV #OBLFE +224, SREGIO ;GOOD VALUE 
S082 O21454 013737 001544 001204 MOV T.BA, SREGIL ERROR VALUE 
5083 O21462 012737 045477 OSSS24 MOV #OPER41,DFO1CA ;"WRITE CHECK ABORTED WITH WCE” 
5084 021470 104010 ERROR 10 
SURE 021472 023727 OO1S42 177512 7S: CMP T.WC, #-266 sTEST IF WORD COUNT AT HI SIDE 
5087 021500 oo14is BEQ 3$ YES - SKIP 
5088 021502 012737 os05SO 001450 MOV #£M10, EMLON SET MESSAGE 
5989 021510 012727 045477 0O55524 MOV #OPERG1,OFO10A ;"WC ABORTED WITH WCE” 
5090 021516 Ole737 1775i2 001202 MOV #-266,$REGIO  ;GO0D VALUE 
5091 021524 O13737 Oo01542 001204 MOV T.WC, $REG11 *ERROR VALUE 
5092 021532 104010 ERROR 10 
Ben 021534 104415 33: SCOP1 sLOCAL LOOP ON ERROR TO 1S 
2 o3e : 021536 032700 100000 BIT #B1T15,RO sBIT 15 SET? 
5 021542 o01002 BNE 4S *YES-EXIT 
5098 021544 006300 ASL RO ‘SHIFT ERROR BIT 
5033 021546 000640 BR 1$ *LOOP 
5101 o21550 4S: 
£102 s3 EEHEL ELLE LEE L EELS E EEE EEE EK EE RAEA EERE RERER ERE R ERE LALA ELLE LAEE 
£103 j ATEST 70 WRITE CHECK ERROR (PART 2) 
5105 '% WRITE CYLINDER 312, TRACK 0, SECTOR O WITH 17777 
5106 * IN ALL WORDS. WRITE CHECK CYLINDER 312, TRACK O, 

5107 * SECTOR O WITH THE SAME DATA EXCEPT WORD 120 HAS 
2108 i ONE OF THE FOLLWOING CONFIGURATIONS: . 
5110 * 177776 177757 177377 167777 

Sill * 177775 177737 176777 157777 

bile 2 x 177773 177677 175777 137777 

ett ii 177767. 177577. 173777. 077777 

511s # MAKE SURE WRITE CHECK ERROR SET FOR EACH 

Sil6 - 2 OF THE CONFIGURATIONS AND THAT THE BUS ADDRESS 

eit? : : AND WORD COUNT IS CORRECT. 

5119 oe EE HEREEEEL EGER RE SESE EERE REESE ARERR REE R EE ER AREER ERE RAL E EEL AE 
5120 021550 oo0004 +$170: 

E121 021552 012737 o00062 on12b2 MOV SO. , STIMES :;D0 50. ITERATIONS 
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037526 


033324 


033324 


021670 001110 
Ob06E6 


033324 


1S: 


RK611 7 beta CONTROLLER DIAGNOSTIC MACY11 27(732) O1-OCT-76 10:50 PAGE 97 
D WRITE CHECK ERROR (PART 2) 


012700 177776 


MOV #177776,R0 sLOAD RO FOR CAUSING WRITE CHECK ERROR 
TSSINIT YST 

ae pono 

ISR RY, GENCOM 

400 at hoBps 

JSR R4, LRLOAD sLOAD "L” REGS 

WROATA ; HRDATA 

-400 400 WCTDS 

OBUFF : OBUFF IS BUFF ADDRESS 
-BYTE 0 ; SECTOR 0 

“BYTE 0 TRACK O 

312 ‘CYLINDER 312 

TLOADRK sLOAD RK 

TWAT32 sHATT 7 FoR INTERRUPT 

ERROR 2 OMPLETE ERROR 


TCHKOP over OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5. 6, 7, 10 ;REPORT ALL ERRORS 

JSR R4, LRLOAD ;LOAD “L” REGS 

WRT CHK ;WRTCHK 

-400 37400 WORDS 

OBUFF ;OBUFF IS BUFF ADDRESS 
-BYTE OQ ;SECTOR O 

BYTE 0 TRACK O 

3le CYLINDER 312 

TLOADRK ;LOAD RK REGS 

TWAT32 ;WAIT FOR INTERRUPT 

ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 


TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


SCOP LOCAL LOOP TO, StPe OF TEST 
MOV #1$, SLPERR sSET LOCHL LOOP 
MOV PO OBIIFE4220 PUT WORD IN OBUFF TO CAUSE WCE 
TSSINIT *CLEAR SUBSYSTEM 
ERROR 3 ‘BAD INIT ERROR 
ISR R4, LRLOAD sLOAD “L” REGS 
WRTCHK ll 
-400 -400 WORDS 
OBUFF ‘OBUFF IS BUFF ADDRESS 
.BYTE 0 SECTOR O 
‘BYTE 0 ‘TRACK O 
312 CYLINDER 312 
TLOADRK ;LOAD RK REGS 
Brad WAIT FOR INTERRUP 
ERROR TO SLOW/NOT ERPLETE ERROR © 








eee = ee oe en os eee 
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DIRSKB.PL! T70 WRITE CHECK ERROR PART 2) SEO 0131 
5178 
5179 o21724 104422 TCHKWE sCHECK OPERATION WITH EXPECTED ERROR 
5189 92:726 do0000 . 
5181 Gei73so oocoo4 WCKERR sWRITE CHECK ERROR 
S182 9521732 900000 
183 621734 104004 ERROR 4; OR S,6,7 sREPORT ALL DISCREPANCIES 
2185 021736 104415 SCOPL ae LOOP TO 1S 
597 , TE: THE WORD COUNT AND Bu 1S ADDRESS CAN BE EITHER OF Twig 
5188 : UES AND BE CORRECT. IFFEREN 15 CAUSED BY len THE 
£389 : WCE OCCURRED. IF IT 0¢ FIRST WORD OF A 
£196 : CYCLE, WO AND BA WILL cre Bist WHERE THE ERROR ACTUALLY 
5131 : URRED. IF WCE OCCURRED ON A SINGLE NPR CYCLE OR THE LAST 
5192 : NPR CYCLE OF A DOUBLE CYCLE, WC AND BA CONTENTS REFLECT THE 
2133 : UAL WORD WHERE THE ERROR WAS. 
5195 021740 023727 O01S44 06067 CMP T.BA, SOBUFF+222 ;CHECK Ba HALT AT PROPER PLACE 
5196 rae 051418 BEQ 2s : YES-SKIP 
5197 021750 101 BHI iJF TO HI - SKIP 
519g 17e le737? 950575 001450 MOY EM1ON “INCORRECT BA” 
5199 O21 O1 001202 MOV soaurt sze2 srecib -G000 VALUE 
021 7bb 1 001544 001204 MOV T.3A, SREGIL V 
1 el 12727 045477 055524 MOV sOPER41 Br O10R ISURITE CHECK ABORTED WITH WCE” 
| $208 Oge002 104010 ERROR 10 
5204 022004 001542 177511 2S: CMP T.WC, 8-267 sCHECK WORD COUNT AT CORRECT VALUE 
5205 ecole SO 1460 BEQ 3$ : :YES-SKIP 
2 822014 Ol 001450 MOV 8£410, EM10N "INCORRECT WC” 
Nee0e2 012737 77 524 MOV SOPER4I DFOLOA ;"WRITE CHECK ABORTED WITH WCE” 
| $208 022035 016737 177511 001202 mo 8-267, SREGIO — ;G000 VALUE 
5203 022036 013737 001542 001204 HOV T.WC, $REG11 sERROR VALUE 
eit SeSoNe ieosas BR 18 sEXIT 
5213 023727 O01S44 060672 6S: CMP T.BA, SOBUFF+224 ;TEST IF BA AT HI SIDE 
| 8214 02206¢ BEQ 4m :YE IP 
| §3is 348 001450 MOV 11, EM10N ICET MESSAGE 
| 6§216 O22066 612737 001202 MOV SOBUFF +224, $REGIO -GO0D VALUE 
| §317 o22074 13737 001544 001204 MOV T.BA, SREGII sERROR VALUE 
| Sig cecing 12737 4 MOV #OPER41,DFO1OA ;“WRITE CHECK ABORTED WITH WCE™ 
219 C2210 104010 ERROR 10 
eel 22112 co1s42 177512 75: CMP T.WC, 8-266 ;TEST IF WORD COUNT AT HI SIDE 
2555 BStSS GFF cosy noise Soy C«SEMIO.EMION SE? MESSAGE 
| §224 022130 O1 77 ossSe4 HOV #OPERSI broioa HC ABORTED WITH WCE” 
| §22e5 02213 O01 7 12 001202 MOV #-266, SREGI GOOD VAL 
peck Deei44 01 1542 001204 MOV T.WC, $REGII ERROR VALUE 
022152 104010 ERROR 10 
2ee8 022154 104415 3S: SCOP! 
| €§33i o2e1 00000 BIT #BIT15,RO ;BIT 15 SET? (ALL PATTERNS TESTED) 
| 8535 pectes paar 3 BNE tYES-EXIT 
£233 Oecié4 006300 ASL RO :SHIFT FOR NEXT TEST 
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DZRSKB.P11 70 WRITE CHECK ERROR (PART 2) SEG 0122 
S23 022166 00640 BR 1S LOOP 
5235 
523% O22! 4$: 
S237 5p REREREREA RS RERA EASES SEA LASS ELLE SE ELLALALE RE RELE SELES LFS LE SESE 
as j ATEST 71 WRITE CHECK OF PARTIAL SECTOR 
:# WRITE CYLINDER 312, TRACK r SECTOR WITH A KNOWN 
ai :# CONFIGURATIONS. ISSUE A WRITE CHECK COMMAND OF 
5543 :# ll SURE THE LIITH WORD IS 
5243 1% Of FEREN AAA DATA ON DISK, MAKE SURE 
Seu4 i WRITE CHECK ERROR DOES NOT SET. 
5248 se SLERLSRELERAASEASLLALLELEFSALERAFAAFSAAFSSSSLAAKEELELALSL SRLS FEE 
S247 022170 oooroy¥ t&T71: SCOPE 
5248 O22l72 012737 o00062 O0lzb2 MOV #50. , STIMES ;:D0 SO. ITERATIONS 
5249 O22200 104416 TSSINIT :CLEAR SUBSYSTEM 
Beso Q2ee02 104003 ERROR 3 :BAD INIT ERROR 
S252 022204 004437 037526 JSR R4, GENCOM ;GENERATE DATA 
5253 022210 000007 7 SALL 1°S 
pest O22212 o00400 400 400 toRDs 
5256 022214 004437 033324 JSR R4, LRLOAD sLOAD “L” REGS 
5257 Oeeee0 000123 WRDATA :WRDATA ~ 
| S258 Geeeee 177400 “400 + =400 WORDS . at : 
| 253 psssee eat RTE 0 seu ORB — 
5261 Oee2e7 ooc “BYTE © TRACK 0 
Bebe 022230 000312 312 :CYLINDER 312 
5264 022232 104417 TLOADRK sLOAD RK REGS 
| 5265 Oeces4 104424 TWAT 32 *WAIT FOR INTERRUPT 
Bebb Deee36 104002 ERROR 2 : :T0 SLOW/NOT COMPLETE ERROR 
| 5268 022240 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
| 5269 Oeee42 104004 ERROR 4 ;0R5, 6, 7, 10 ;REPORT ALL ERRORS 
e5ot 022244 005037 060670 CLR OBUFF +222 
2555 022250 004437 033324 ISR R4, LRLOAD sLOAD “L” REGS 
eo7e essen 7770 =110 3-110 WORDS 
or 022260 QBUFF 1 BUFF ADDRESS 
| Ue oe ter 
| Reeees «Ot EVIE 0 a rae 
| 5279 OGeceb4 000312 312 ;CYLINDER 312 
eset b222bb 104417 TLOADRK ;LOAD RK REGS 
. Seg2 TWAT “WAIT FOR INTERRUPT 
| 5283 deee7e ERR 2 >TO SLOW/NOT COMPLETE ERROR 
ees 022274 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
| 5286 022276 104004 ERROR 4 ;0R 5, 6, 7, 10 ;REPORT ALL ERRORS 
ec88 .S8TTL ##MAXIMUM DATA TRANSFER AND CONTROLLER TIME OUT 





| 
| 
| 
| 
| 
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DZREKB.P11 TY 


: 133 MAXIMUM DATA TRANSFER (PART 1 SEC 0123 
5290 ; i S ERRSREREREFLSASSSELRSELSKSSSRESLALELEAESSLSESASSESSEAAA PL ESLSSLGSS 
bei jATEST 72 MAXIMUM DATA TRANSFER (PART 1) 

ee N THE FIRST PA THE PROGRAM, THE HEADERS OF 
2533 :% THE peer ac VCTROERS ee WRITTEN. THIS IS DONE TO 
5595 :* URE THE FORMAT Te CORRECT. 
253 ty ZERO OUT THE FIRST 256 SECTORS OF THE DISK WITH 
£599 ie ONE SECTOR WRITES. ISSUE A SEEK TO CYLINDER 0. TRACK O. 
£599 + ISSUE WRITE DATA OF RAXIFUM DATA TRANSCER 208000 WORDS 
5500 10 CYL TRACK 0. SECTOR 0. MAKE SURE CONTROLLER 
£301 : TIME ae if nor SET. CHECK CYLINDER 
E395 te DISK ADDRESS, BUS ADDRESS AND WORD C aD 
5303 i EACH SECTOR $0 MAKE SURE IT WAS WRITTEN CORRECTLY. 
ee ee NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT 
5308 i IN THE FIRST 256 SECTORS ON THE PACK. 
5308 H SeSRPEEESSHHFRFEELLERESEE LALA SSSA RAS REEL RLLE SELLE PRE LHS EKER A LAF ESS 
5309 922300 000004 tét72: SCoPE 
6310 O22302 012737 900005 ool262 MOV #5. STIMES ; ITERATIONS 
311 022310 37 poo400 OOleSe Bit SPPENT OPTFLG © f4eST IF FIRS? PASS SWITCH SET 
sie Oeeaib 01049 . BNE au YES - SKIP FORMAT 
5314 osos7 ogeaN3 CLRB 218 SCLEAR ADDRESS POINTERS 

| BIS Geeses Os5344 cLR Bas 

| 8p 004437 033324 208: JSR RY, LRLOAD :LO0D,"L* REGISTERS 
2318 022334 000127 WRHEAD WRITE HEADER 
6319 02233 1776 =102 102 WORDS 

nee4 Aeonue OBUFF tOBUFF 1s BUFF ADDRESS 
1 000 "BYTE 0 ISECTOR 0 
pice Ceesis O00 21$: ‘BYTE 0 STRACK ADDRESS (VARIABLE) 
| O22344 000009 52g; CYLINDER O (VARIABLE) 
E355 022246 004437 037526 J R4, GENCOM :G0_GENERATE HEADE 

| e552 Qee3s2 001200 1350 FAITH BAD SECTOR E 

| 2358 20364 10417 TLOADRK 

| $309 O20366 104431 THATI12 thal BOR INTERRUPT 

| B30 Ge23e0 10400e ERROR 2 ?T0 SLOW/NOT COMPLETE ERROR 
£332 22362 104421 TCHKOP me OPERATION FOR ANY ERRORS 

| 8353 020364 104004 ERROR 4 ;0RS, 6, 7 REPORT ALL ERRORS 

| Be32 poo%e 123727 022343 oo0002 CMPB 218,82 ;TEST IF LAST TRACK 

| ees. fosea? 022343 Fea (Sis tETeE BUMP TRACK 

ie a ie cn 

| BR SENOS 10808? OSERF cooons 28 ARP BLS Teer IF CAST CYLINDER WRITTEN 

| EMe beetle Ob1463 BEQ Bus aA 

| EMS Geeve0 Ooses? zea INC 325 SELSE BUMP CYLINDER 

| Bae 000741 303 LOOP 

Poets 

! 





SUL ol RRR RERMMMIA ad giea cal soltuiaaie a 


at 


ae 
Bsekice be 


g 


013737 
012703 


104416 


8 
—— 


8 
b= 


022440 001110 24s: 
000400 1s 


033324 


000004 
000002 


000010 
000008 


000014 
001656 


001360 


2s: 


oF: 
3S: 


TIONAL ” hlanag DIPGNOSTIC MACYL1 e736) 
T7e MAXIMUM DATA TRANSFER (PART 1 


MOV 
MOV 


TSSINIT 
GRROR 
SR 
TA 


TLOADRK 
TWAT1S9 
ERROR 


IMP 4§ 
CHECK FOR ANY OTHER ERRORS 


TCHKOP 
ERROR 
SCOP1 
DEC 
BNE 
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<=: 


1$ SLPERR :SET LOCAL LOOP ON ERROR 
#440,R -SET COUNT FOR SECTOR CLEARING 
‘Bap init ERR 
Ru, LRLOAD ono 
ari Toros 
rors IS BUFF ADDRESS 
0 ; SECTOR 0 
0 * TRACK O 
CYLINDER O 
sLOAD RK REGS 
*WAIT FOR INTERRUPT 
é :TO SLOW/NOT COMPLETE ERROR 


-CHECK OPERATION FOR ANY ERRORS 
16 ;REPORT ALL ERRORS 


;LOCAL LOOP ON ERROR TO 1S 
R3 *DECREMENT COUNT 
#OBUFF .RKBA(R2) :SET BA 
#-400,RKWC(R2) ;AND WC AGAT 


4 ;0R S, 6, 7, 


INTSET : CLEAR INT T FLAG 
ORVNUM. RKCS2(R2) T DRIVE NUMBER 
SWRDATA,RKCS1(R2) ;D0 wrt 
sWAIT FOR INTERRUPT 
2 :T0 SLOW/NOT COMPLETE ERROR 
88SE,RKER(R2)  ;BAD SECTOR ERROR? 
SBSERPT, OPTFLG aa BSE TO MANY HAS BEEN REPORTED 
ry T, OPTFLG 
17, EMIN 


tBETRST 2S6 SECTOR NOT BSE FREE” 
:GO TO EXIT 


» CHECK OPERATION FOR. ANY ERRORS 
4 ;0R5, 6, 7, 10 ;REPOR TALL ERR 
*COeAE LO LOOP TO I$ ORE START SECTOR CLEAR) 


R3 ;DECREMENT COUNT 
es sLOOP IF NOT ZERO 
R4, LRLOAD PER “L" REGS 
F ADDRESS 
La 
SCL INOER 0 


SEG 0134 
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DZREKB.P T7e MAXIMUM DATA TRANSFER (PART 1 SEG 0135 





104417 TLOAORK ;LOAD RK REGS 
108s ERROR’ 2 Hole Son a EARP ERROR 
001662 CLR INTSET 10, SLOW FIRST INTER cere 
104421 TCHKOP ‘CHECK OPERATION FOR ANY ERRORS 
104004 ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 
ate eo Hoa ana Sol TE Sa 
ited 937 JSR R4, GENCOM GENERATE DATA 
4006 :PATTERN 6, 1ST WORD REPEATED 
000400 400 400 WORDS’ 
4§: 
104416 TSSINIT s CLEAR SUBSYSTEM 
104003 ERR 3 ;BAD_IN I ERROR 
004437 033324 ISR R4, LRLOAD ‘LOAD 
000123 WRDATA *ROATA- 
BEDE OBUFF OBuEE 0 fs BUFF ADDRESS 
~~ 900 “BYTE O *SECTOR O 
900 “BYTE 0 TRACK O 
000000 : *CYLINDER 0 
052727 000020 o01610 ~ BIS #BAI,L.cS2 
104417 TLCADRK ;LOAD BK REGS 
104437 TWATBS WAIT FOR SECOND I 
104002 ERROR 2 “ELSE REPORT TO Py a COMPLETE ERROR 
73: 
104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
O44 SCOP1 oop 
Bf 000400 MOV #400, R3 ATOR OOn COUNTER FoR READ cone <b 0oP 
005037 022776 CLR 10$ *CLEAR SECTOR AND TRACK 
005037 €LR 125 *CLEAR CYL VALUE 
1 001110 MOV 8$, SLPERR *SET LOCAL LOOP ON ERROR 
042737 000020 001610 BIC #BAI,L.CS2 *CLE 
BS: 
10441 ~ TSSINIT ;CLEAR SUBSYSTEM 
1 ERROR 3 *BAD INIT ERROR 
004437 033324 9S: JSR R4, LRLOAD *LOAD RK REGS 
000121 RDDATA *READ DATA 
177400 Ag. *400 WORDS 
OSse446 Cs *INTO IBUFF 
10$ Fi ‘ *SECTOR (VARIABLE) 
11S : (VBR TABL ) 
1 “CYL (VAR ) 
104417 TLOADRK 31900 RK_RE 
104425 TWATYB IT FOR INTERRUPT 
i ERROR 2 __... $70 SLOWZNOT COMPLETE ERROR 
104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 





en eS 
i 
; 





SIU GORA AYA] Ose om 


023012 104004 ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
: 023014 104415 SCOP! sLOCAL LOOP ON ERROR TO 8$ 
S462 023016 O04437 027526 ISR R4, GENCOM sCOMPARE DATA 
S463 Oe3022 100000 100000 
S464 023024 pogwog 400 ;400 WORDS 
S4eS 023026 13 BR 13$ "NO MISCOMPARE-EXIT LOOP 
Subs 023030 104015 ERROR 15 *REPORT FIRST ERROR 
5468 023032 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 
E469 023036 505300 64$: DEC RO ; DECRENENT COUNT 
5470 023040 001406 BEO 65S IF ZERO TK IT 
5471 23042 037526 JSR R4, GENCOM “CONTINUE DATA COMPARE 
Bus Beane BR” ess MORE ERRORS - EXIT 
aim 0230S2 104016 ERROR 16 REPORT NEXT ERROR 
2u7% oSanen a 65S: it 
2478 0230S6 104415 13$: SCOP ;LOCAL LOOP TO g$ 
S480 023060 005303 DEC R3 sDEC_READ LOOP COUNT 
5481 Oe2062 001423 BEQ 14$ IF ZERO-EXIT 
2ues 105237 022776 INCB =s-«108 ;BUMP SECTOR 
5484 023070 123727 022776 000026 CMPB =s-«108, #26 FINISHED ORTH TRACK? 
S485 001 332 BNE ag : 
| S4a6 arta 1 022776 CLRB 3=s«di 0S *CLEAR SECTOR 
5487 023104 105237 022777 INCB 36s «118 ;BUNP TRACK 
5488 023110 123727 022777 000003 MPBs«115, 83 *FINISHED WITH CYLINDER? 
5489 023116 O0i3zee ag *NO=L 
5490 023120 105037 022777 CLRBs«d11S *CLEAR TRACK 
5491 023124 023000 INC 12$ *BUMP CYL 
S492 023130 is BR g§ *LOOP 
| 5493 
| §494 023132 
} cygs . [eee eesveneeeaeesveureesneenpeaseeessesgteeseeerseeesenteens 
| S43 s#TE MAXIMUM DATA TRANSFER (PART 2) 
£458 Ho ZERO OUT FIRST 256 SECTORS OF THE DISK WITH 
5453 3% WORD WRITE. SEEK T 
5500 2% ISSUE A WRITE OF MAXIMUM 
5501 % 200000 WORD WRITE. MAKE SURE CONTROLLER TIME 
| §50e2 % T 18 NOT SET. CK CYLINDER ADDRESS 
5503 6 DISK ss, BUS AND WORD COUNT 
5504 +" SEEK TO CYLI R be SSUE A WRITE CHECK 
550s ii OF 200000 MAKE NO ERROR SETS. 
zen 2 NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT 
5508 it IN THE FIRST 256 SECTORS ON THE PACK. 
i Bat » Sonsuneeceunnnenenseunnmmnnnnennenniennnenenennennnnennnennenns 
eel ate eae 900005 001262 tit sila soy #5, STIMES TERATION 
| ets 023142 04416 TSSINIT ' APR aR SYS ons 
} 





SEG 0136 





re Ws 


Bee 


tote 
t= => 


Rae 


Ww 


10400: 
12700 
005037 


004437 
000123 


000620 
060446 


033324 


000020 


001662 


001610 


000014 


001656 


001656 
001366 


es: 


4$: 
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SEQ 0137 

3 ;BAD INIT ERROR 
#400. ,RO SET COUNT FOR INTERRUPT WAIT 
OBUFF 
RY, LRLOAD sLOAD “L™ REGS 

on 

OBUEE OF 5 BUFF ADDRESS 
: 5 SECTOR 0 

s TRACK 0 
#AI,L.CS2 oor O 

pie *LOAD RK REGS 

“WAIT FOR INTERRUPT 
2s *NO_INTERRUPT-SKIP 
3$ ?IN T-SKIP 
RO ;DEC_WAIT COUNTER 
1$ “LOOP 
2 70 ST OW/NOT COMPLETE ERROR 


#BSE,RKER(R2)  ;DID BSE SET 
4§ ;NO-SKIP 


sGSERPT, , OPTFLG sTEST ia 19 MANY BAD SECTORS REPORTED 
#8SERPT,OPTFLG ;SET FLAG 

#0PRO17,EMIN  }SET MESSAGE 

Le jePIRST 256 SECTORS NOT BSE FREE” 


“CHECK OPERATION FOR ANY ERRORS 
4 ;0R5, 6, 7, 10 ;REPORT ALL ERRORS 


R4, LRLOAD tEeEK “L” REGS 
Q Ley ADDRESS 
CYL INOER 632 


Hnaty For INTERRUPT 


SLOW NOT COMPLETE ERROR 


2 
INTSET ERR INTERRUPT FLAG 


;CHECK OPERATION FOR ANY ERRORS 
ERRORS 


4 ;0RS, 6, 7 ;REPORT ALL 


;WAIT FOR 2ND INTERRUPT 


;CHECK OPERATION FOR ANY ERRORS 


4 ;0R5, 6, 7 ;REPORT ALL ERRORS 
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pe 


8 
3 


2 


Be Sas fous 


ee 


A 


+ 


x 


Boe 


ae 


aaa 


ry 


SS 
ig 


e 2 


8 
2 











;LOAD “L” REGS 
;CL Scens 


a “RUE ADDRESS 


; TRACK O 
;CYLINDER O 





;LOAD RK REGS 
WAIT FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 


‘ee OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 





;LOAD “L” REGS 
;WROATA 





:0 WORDS 
OBUFF IS BUFF ADDRESS 
sSECTOR 0 





CYLINDER O 





;SET WORD FOR OUTPUT 
:SET COUNT FOR INTERRUPT 
SET BUS ADDRESS INC INMIBIT 


;LOAD RK REGS 

sHATT FOR INTERRUPT 
NO_INTERRUPT-BRANCH 

SIN TERRUPT-BRANCH 

;DEC 5 3 COUNT 


LOOP IF NOT ZERO 
TO SLOW/NOT COMPLETE ERROR 


CHECK OPERATION FOR ANY ERRORS 
ALL ERRORS 


iH SLOW/NOT COMPLETE ERROR 
SCLEAR INTERRUPT FLAG 


;CHECK OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 


;WAIT FOR SECOND INIT 


















papinpdeenpectnadetspetiantacresinal 


tated 
a3 


173 
104002 


i8scbs 


Be 
RY 


oa 62 Ht! Beat: 


Essie 


rE 


at 


a 
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MAXIMUM DATA TRANSFER (PART 2) 


033324 


0000e0 001610 
000621 


o0c00S 001262 


a eS Pr 
TROP s0R 5, 6, 7 i GUESK RA OARS 
JSR _—- RY, LRLOAD sLOAD "L" REGS 
CLEAR CLE 
:0 WORDS 
0 ?0 1S BUFF ADDRESS 
“BYTE 0 ISECTOR O 
"BYTE 0 t TRACK O 
h} :CYLINDER 0 
TLOADRK REGS 
TWATI6 ‘aaty FOR INTERRUPT 
ERROR 2 1 FoR COMPLETE ERROR 
TCHKOP poe OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 :REPORT ALL ERRORS 
JSR 4, LRLOAD ;LOAD “L” REGS 
WRTCHK ? WRTCHK 
0 ?0 WORDS 
OBUFF !OBUFF 1S BUFF ADDRESS 
“BYTE 0 ‘SECTOR O 
"BYTE 0 TRACK O 
?CYLINDER O 
BIS #BAI,L.cs2 ‘SET BAI FLAG 
MOV #401! RO :SET WAIT COUNT 
TLOADRK sLOAD RK REGS 
8$:  TWATIS9 {HAIT FOR INTERRUPT 
BR 95 2NO_INTERRUPT-SKIP 
BR i0s  INTERRUPT-SKIP 
98: DEC RO sDEC WAIT COUNT 
EREOR 8 cCBRCND? COMPLETE ERROR 


108: 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


; /saeesaeeeaeeeaneeeeneeeateeneeesressreceteesneneceneeeneeentey 
jATE CONTROLLER TIME OUT 


Se SEEK TO CYLINDER 632. ISSUE A RECALIBRATE AND DO NOT 
: WAIT FOR SECOND INTERRUPT. NOW ISSUE A READ HEADER 

: OF CYLINDER 0, TRACK 0. MAKE SURE CONTROLLER TIME 

a 7 


i LAE gipiepeenene pes pomamangen senna 
MOV #5. ,STIMES ITERATIONS 
TSSINIT ia LE R SUBSYSTEM 
ERROR 3 INIT ERROR 


we ewe . 
Ur: he oe ie a 





SES 0139 








022624 004437 033324 JSR —- RY, LRLOAD 
023630 000117 SEEK 
Q23632 000000 0 
O23€34 000000 0 
BB3E3e O00 -BYTE 0 
023637  _ 000 “BYTE 0 
023640 000632 632 
023642 104417 TLOADRK 
44 104423 THATIE 
46 104002 ERROR 2 
023650 104421 TCHKOP 
023652 104004 ERROR 4 ;0R5, 6, 7 
001662 CLR __—sINTSET 
023660 104427 TWATSO 
023662 104002 ERROR 2 
023664 104421 a TCHKOP 
G23666 104004 ERROR 4 ;0RS, 6, 7 


023670 004437 033324 e it R4Y, LRLOAD 


TURE SSE TREN OSES SRR TORE RRR ER RIES 
8 
5 





5716 TCHKOP 
gt ERROR 4% ;0R 5, 6, 7 
§719 JSR R4, LRLOAD 
5720 RECAL 
5721 0 
S7ee 0 
$723 BYTE 0 
5724 BYTE 0 
5727 TLO 
5728 TWATIE 
ERROR 


JSR R4, LRLOAD 
ROHEAD 
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sLOAD “L” REGS 
9 WORDS 
:0 IS BUFF ADDRESS 
: SECTOR 0 


K 0 
YCINOER 632 


;LOAD RK REGS 
sHATT FOR INTERRUPT 
;10 SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


Or cae fp a a FLAG 

sWAIT FOR SECOND INTERRUPT 

:TO 2 OWNGT COMPLETE ERROR 
;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


;LOAD “L” REGS 
: CLEAR 


CYLINDER 0 


;LOAD RK REGS 

WAIT FOR INTERRUPT 

TO SLOW/NOT COMPLETE ERROR 
;CHECK OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 

;LOAD “L” REGS 

gRECAL 


38 WORD IS BUFF ADDRESS 
sSEETOR 
:CYLINDER O 


sLOAD RK REGS 
sWAIT FOR INTERRUPT 
>TO SLOW/NOT COMPLETE ERROR 
pon "L” REGS 
70 WORDS 
70 IS BUFF ADDRESS 
*SECTOR O 


; TRACK O 
;CYLINDER 0 





SEG 0140 


a ne a a a ee ee 
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CONTROLLER TIME OUT 


-SSTTL ##ERRORS DURING DATA TRANSFER 
ee ee OE amen 
LIMIT DETECT ON DATA TRANSFER 
is A_SUBSYSTEM CLEAR. 


2 WITH SSUE A 
TTSSUE A WRITE DATA OF 400 WORDS TO CYLINDER 1, 
HEAD 0. ne Oy eon eee OF OUTER 


HEHEHE GHB HHGHHHE EHH HEHE dG HEHEHE HEHEHE 
000012 O0lebe 


Benno eR SSRBRARR Dna 


wy) 
BIRBBR 


wn 
“Ni 
— 


> | 





SEG 0141 











MAT? FO FOR PERE RRUPT 
;TO SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION WITH EXPECTED ERROR 








;CONTROLLER TIME OUT 
REPORT ANY DISCREPANCIES 
CLEAR SUBSYSTEM 

;BAD_ INIT rie 

: CLEAR iNT FLAG 

eet INT ENABLE 

;WAIT FOR SECOND INT 














ISSUE A ate ply ISSUE 
BAD PARITY. I DRIVE 







3300 10. ITERATIONS 
i ohB ti NET ENED M 
ERRO 
L000 “L” REGS 
iREC 


:D rt BUFF ADDRESS 
; SECTOR 0 
: 


K 
_ FCYLINDER O 
sLOAD RK REGS 
;WATT FOR INTERRUP 
TO SLOWNOT CORPLETE ERROR 


;CLEAR INTERRUPT FLAG 
sWAIT FOR SECOND INTERRUPT 





;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 








ae a mene ee 





R611 Fp Tio, 


48 


4 
2 PPSee ees = 


SS erent: 
i BPE oRSREB 


FF LONGRES 


ehtedetatatettates 
WONTWN CWO 


sisi pints 
BRETT 


T?7S 
004437 


012701 
005301 
001376 


104416 
104003 


CONTR 


DETECT 
033324 


o0cded 001616 


100000 000000 
033324 


001616 


025000 


NSF 
JSR R4, LRLOAD 
SEEK 


0 
-BYTE Q 
BYTE 0 


2 
MOV x #PAT,L.MR1 


MOV #CCLR,RKCS1(R2) 


JSR R4, LRLOAD 
— 


0 
-BYTE 0 
shies 0 


CLR L.MR1 
TLOADRK 
TWAT16 

ERROR 


JSR R4Y, LRLOAD 
RD 


0 
ERROR 4 ;0R 5,6,0R7 


TSSINIT 
ERROR 3 
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;LOAD “L” REGS 
iSEEK 


30 WORDS 
:0 1S BUFF ADDRESS 

SECTOR O 

; TRACK 0 

sCYLINDER 2 

sey een PARITY BIT 

LOAD RK REGS 

*WAIT FOR INTERRU 

TO SLOW/NOT COMPLETE ERROR 
;CLEAR CONTROLLER 
;LOAD “L” REGS 
CLEAR 

30 WORDS 

70 IS BUFF ADDRESS 

SECTOR O 

TRACK O 
CYLINDER O 

;CLEAR PARITY BIT 
;LOAD 

;WAIT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 
SURORTA_ REGS 

-400 WORDS 

t OBUFF IS BUFF ADDRESS 
SECTOR O 

TRACK O 

CYLINDER 1 

;LOAD RK REGS 
sWAIT FOR INTERRUPT 

;TO SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION WITH ERROR 
SEEK INCOMPLETE 


;REPORT ALL DISCREPANCIES 


THIS DELAY IS NEEDED TO ALLOW SEEK AND NO MOTION TO 
SET IN THE DRIVE BEFORE THE SUBSYSTEM CLEAR IS DONE. 
MOV #25000,R1 ;SET A COUNT 

DEC Rl : 

;LOOP UNTIL ZERO 


sCLEAR SUBSYSTEM » 
‘BAD INIT ERROR 





SEO 0142 
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OZREKB.P11 T7S LIMIT DETECT ON DATA TRANSFER 


012762 009100 900000 
005037 Oo01662 
104437 


055036 001372 


a.” ao 


- Leapeeneansesnentensnen crest iaeeaveaaeesa antes neeaeeayeeatent 
4 oo006e 001262 


000001 cocdee 


er ar ee a ea 
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SEG 0143 





MOV #IE,RKCSi(R2) ;SET IE 









CLR INTSET ;CLEAR_INT FLAG 
Eres 1s sWAIT FOR SECOND INTERRUPT 
es 








MOV  #DHO16,DH2N  —_; “SUBSYSTEM CLEAR TO RESET LIMIT ERROR 
ERROR 2 SALLOWING HEADS TO RELOAD” 














PROGRAMMING ERROR 

"Posue A SUBSYSTEM CLEAR. ISSUE 

A READ DATA OF 400 WORDS ON CYLINDER 0, 
TRACK 0, SECTOR 0. URI NG READ ISSUE A’ 
WRITE ro THE SPARE EGISTER. MAKE SURE 
PROGRAMMING ERROR SET 














aoy #50. ,STIMES ;:D0 50. ITERATIONS 
TSSINIT -CLEAR SUBSYSTEM 
ERROR 3 ;BAD INIT ERROR 
































JSR R4, LRLOAD ;LOAD_“L” REGS 
RODA TA ;RDDATA 
37400 WORDS 
IBUFF ;IBUFF IS BUFF ADDRESS 
-BYTE OQ ;SECTOR 0 
BYTE 0 ; TRACK O 
0 ;CYLINDER 0 
TLOADRK ;LOAD RK REGS 
MOV #1,RKSPAR(R2)  ;WRITE SPARE REGISTER 
TWATIE ;WAIT FOR_INTERRUPT 
ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
paeue ;CHECK OPERATION WITH EXPECTED ERROR 
0 
PGERR ;PROG ER 


ROR 
ERROR 4 ;0R S,6,7 ;REPORT ALL DISCREPANCIES 


CC 
ISSUE _A SUBSYSTEM CLEAR. ISSUE 
A WRITE DATA_WORDS CONSISTING OF 177777 TO 
ey TNR 0 = a es 0. 


SURE PROGRAMMING ERROR IS nese. 


ee i et ECL CC CE UL Ee CE LC CLE CCC CL OE LEON 


| 





RAS11 FUNCTIONAL CONTROLLER at 
OCREKB. Pit er 


tt bb be ar 
iy 
02 0 0-2 b= = 
Wo yoru 
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# 
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f 
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ISSUE A READ DATA TO CYLINDER 0, TRACK 0, 
HEAD 0 AND AN ECC HARD ERROR SHOULD SET. 


laneesoeennsosenensenssssestensessaneneeneaneaessonyssessegses 


#50. ,STIMES D0 SO. ITERATIONS 
TSSINIT tAlEaR SUBSYSTEM 

ERROR 3 "BRD INIT ERROR 

sR RY, GENCOM sGENERATE DATA OF ALL ONES 

400 

JSR RY, LRLOAD sLOAD “L” REGS 

WROATA ;HRDATA 

-400 -400 WORDS 

OBUFF 'OBUFF IS BUFF ADDRESS 

-BYTE 0 -SECTOR O ; 

"BYTE 9 STRACK O 

0 *CYLINDER 0 

TLOADRK ;LOAD RK REGS 

TST INTSET sCHECK IF INTERRUPT HAS OCCURRED 
NE 2s YES = MUCH T REPORT ERR 
CMP RKWC(R2), #-150 sSHECK THAT more THAN ONE SILO F 
BLO 1S OF DATA HAS BEEN WRITTEN:ELSE LOOP 
BIS #CCLR,RKCS1(R2) mp CONTROLLER (CROWBAR WRITE) 
ISR R4, LRLOAD sLOAD “L” REGS 

ROOATA ;RODATA 

TBuP ST BUPR Se 

IBUFF *T 1S BUFF ADDRESS 

-BYTE 0 *SECTOR O 

“BYTE 0 TRACK O 

0 *CYLINDER 0 

TLOADRK sLOAD RK REGS 

TWATYS inaty FOR INTERRUPT 

ERROR 2 O SLOW/NOT COMPLETE ERROR 
TCHKHE oan OPERATION WITH ERROR 
DCKERR? ECHERR DATA CHECK AND ECC HARD 

ERROR 4 ;0R 5,6,7 ;REPORT ALL DISCREPANCIES 

eR 3 SKIP TO EXIT 

TCHKOP “CHECK OPERATION FOR ANY ERRORS 


ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


a ry amg oo = + ++ een naeteatatenme ee 
T 100 DRIVE TIMING ERROR 
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DZR6KB.P11 T100 § ORIVE TIMING ERROR SEO 0145 
5362 ;# ISSUE A SUBSYSTEM CLEAR. SEEK TO CYLINDER 63c. 
5963 e $5 of ech erate oth DO NOT WA 0. CWI OR SECOND INTERRUPT. 
Ess te PUT ¢ N DIAGNOSTIC MODE. ISS A READ HEADER 
5965 4% OF CHINO ag TRACK 0. sc Oe THROUG 
5365 :% AND OR vE BR MESSAGE URN OFF 01 FagHOSTIC MODE. 
5967 :* DRIVE TIMI Ng "ERR SHOUD ae CAUSE OF NO DATA 
5369 ;@ TRANSISTIONS ON DATA 
go59 NTs ob RR EER NE 
5970 o24S06 ocoo04 +it100: SCOPE 
ea Oe4Sid Ole73s?7 oo001i2 o01262 MOV 810. ,STIMES :3D0 10. ITERATIONS 
E973 24516 104416 TSSINIT ;CLEAR SUBSYSTEM 
S34 d2e4520 104003 , ERROR 3 *BAD INIT ERROR 
o24S22 004437 933324 JSR R4, LRLOAD ; LOAD “L” REGS 
024526 900117 SEEK : SEEK 
5978 024530 000000 0 WORDS 
5979 Oe4S32e 900000 0 70 IS BUFF ADDRESS 
' §980 O254534 000 -BYTE OO SECTOR O 
5981 24535 000 “BYTE 0 TRACK 0 
5982 024536 000632 632 >CYLINDER 632 
eae 024540 104417 TLOADRK sLOAD RK REGS 
Sees geusye 1044 TWATI6 *WAIT FOR INTERRUPT 
5985 Oo4su4 1 ERROR 2 *TC SLOW/NOT COMPLETE ERROR 
5987 024546 005037 Oo01&662 CLR INTSET ; CLEAR INT FLAG 
| §988 Qe4ss2 104430 TWATSE WAIT OR. SECOND NTERRUP 
| 5989 o24554 104002 ERROR 2 :T0 g OMENS SOOPLETE ERROR 
east 024556 004437 033324 JSR R4, LRLOAD ;LOAD “L” REGS 
| §992 OexSb2 000113 RECAL *RECAL 
| §eg3 090000 0 °0 WORDS 
| §994 900000 °0 1S BUFF ADDRESS 
| §995 o24570 009 -BYTE O >SECTOR O 
| 5996 024571 000 “BYTE OO TRACK O 
2322 0e4572 000000 0 sCYLINDER 0 
| §999 924574 104417 TL sLOAD RK REGS 
' $000 Oe4576 104423 TWATI6 “WAIT FOR INTERRUPT 
' §001 OeM600 104002 ERR :T0 SLOW/NOT COMPLETE ERROR 
Eons Ceve02 004437 032224 ISR R4, LRLOAD ;LOAD “L"™ REGS 
 §004 024606 0001 ; ROHEAD 
POSE Geue te iO TS BUFF ADDRESS 
ee 024614 me -BYTE O s SECTOR O 
| coos Sevels 000 sevTe 0 : TRACK ¢ O 7 
_ 010 eves O1e737 00040 OO16I6 MOV #OMD,L.MRL SEF DT 
poly C24626 104417 TLOADRK PE AD ORK Recs 
/ §013 024630 p04437 033600 JSR R4, MCLOCK sCLOCK CONTROLLER THROUGH SEEK 
bOI 024634 001062 1062 “AND CLEAR TO READ 
E518 024636 o0S062 00002 CLR RKMR1(R2) sRESET DIAG MODE 





+ er eee = ee ee ee ee 


tres arena eee = 20-2 e eet ee ene ener Se an EeS SRE SS SRE ne | 


ba 
o 


Eg 


REE LA ad ada call iu a ualee eet ee ease av iciacin iin stir 


‘ 


oe - 


024642 
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7100 


104424 
idaes 


Ge =e 


es 


BY 
RY 


Seas 


ee 


bsokeee 22: 

























ORIVE TIMING ERROR SES 0146 


TWAT32 MALT FOR INTERRUPT 
FRROR 2 SLOW/NOT COMPLETE ERROR 
CHKWE cnet MEP RATION HTH EXE ERROR 
OTERR ites TIMING ERROR 


i) 
ERROR 4 ;0R S,6,7 ;EPORT ALL DISCREPANCIES 





13: 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 ;BAD INIT ERROR 
900190 o00000 MOV SIE, RKCS1(R2)  :SET INTERRUPT ENABLE 
co1b62 C INTSET :CLEAR INT FLAG 
TWATBS sWAIT FOR INTERRUPT FOR END OF RECAL 
ERROR 2 
032324 JSR R4, LRLOAD sLOAD "L” REGS 
CLEAR CLEAR 
F ADDRESS 
BYTE OQ ble 
Te 0 
3 A 0 
TLOADRK sLOAD RK REGS 
TWATI6 ;WAIT FOR INTERRUPT 
ERROR 2 >TO SLOW/NOT C E ERROR 
TCHKOP :CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 :REPORT ALL ERRORS 
.SBTTL ##ERROR FORCING IN DRIVE 
;  SEESLERSFEREFELEASRLELLSASEELELELALLASSRERHEFARSLAALERSKREASEKEE 
j ATEST 101 INITIALIZE CLEARING SACK 
te 1S SUBSYSTEM CLEAR. CT AN AVAILABLE 
+ GRIvE 1 9 SuBsysren CT comma WITH = 
* Reser 15 16 =-3, fr OA BRlve “SELECTED. CLOCK THROUGH 
;# ine” MODE. MAKE 
i SURES UNITE FELD’ ERROR DOES NOT SET. 
H SHSERSLRSESSERLFESESESLESELEL RL SLE RERA SRE RL HLAVHESHESRA SKE SRH SSE 
téT101: SCOPE 
ooons2 o01262 nov i #50. , STIMES D0 50, ITERATIONS 
ERROR. 3 SBAD INIT ERROR 
023324 JSR R4, LRLOAD 
ORV 
BYTE 0 
BYTE 0 


2 
o 


A LEE CL ES CS A EE, LLL SL EL DLL EOIN, 


ee ee ee 
‘ 
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DZR&KB. T10: INITIALIZE CLEARING S SES 0147 
6074 
6075 024764 104417 TLOADRK ;LOAD RK_REGS 
6076 024766 104423 TWATIE ‘WAIT FOR INTERRUPT 
cae 024770 104002 ERROR e :T0 SLOW/NOT COMPLETE ERROR 
Ce477e 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
epee 024774 104004 ERROR 4 ;0R S, 6, 7 : REPORT ALL ERRORS 
6082 024776 104416 TSSINIT ;CLEAR SUBSYSTEM 
6083 OeS000 104003 ERROR 3 :BAD INIT ERROR 
08S O25002 O04437 033324 JSR R4, LRLOAD ;LOAD “L” REGS 
poss 025006 000101 SELDRV ;SELDRV 
025010 00000 0 0 WORDS 
6088 OeS01e O0C000 0 :0 IS BUFF ADDRESS 
6089 025014 000 -—BYTE 0 :SECTOR O 
6090 025015 000 -BYTE 0 ; TRACK 0 
609i 025016 ;CYLINDER 0 
6092 025020 012737 OO0O043 O01616 MOV #3!DMD,L.MR1 :SET DIAG MODE AND MESSAGE PAIR 3 
6093 025026 001610 CLR =L.CS2’ = SELECT DRIVE O 
6095 OeS032 104417 TLORDRK ;LOAD RK REGS 
6097 025034 OO4427 033600 JSR RY, MCLOCK ;CLOCK THROUGH PHASE ADDRESS & 
rae OeS040 001027 1027 
pi O2S042 O42762 CoCO4C 000026 BIC #OMD,RKMRI(R2) ;CLEAR MAINTENANCE MODE 
st S2e50S0 104424 TWAT32 ;WAIT FOR INTERRUPT 
tt 025052 104002 ERROR 2 :TO SLOW/NOT COMPLETE 
6105 025054 104421 TCHKOP ;CHECK_ OPERATION FOR ANY ERRORS 
pi 025056 104004 ERROR 4 ;OR 5 
61 : jsapeeauenetenvensbeacebeciacevbesaneversineanneneeatenessstest 
108 jATEST 102 DRIVE OF 
6110 TEM CLEAR. ISSUE A RECALIBRATE. ISSUE 
61il Af OFFSET OF +1200 MICRO-INCHES. PUT CONTROLLER IN DIAGNOSTIC 
6112 3% MODE. ISSUE A WRITE DATA 1 WORD TO CYLINDER O 
6113 3% TRACK 0, SECTOR 0. CLOCK IVE 
6114 i MESSAGES. TURN OFF DIAGNOSTIC MODE. DRIVE OFF TRACK 
pile 3% SHOULD SET IN DRIVE. REPEAT FOR ALL AVAILIABLE DRIVES. 
6117 riiiitiiiiiiittiitiitiiittiiittttitiitiititiiittttite 
6118 000004 tét102: SCOPE 
Pisa 025062 he 000012 O0i26e 2 #10. ,STIMES ; 00 ay {TERST TONS 
ra trge 
big pene ipo0s ERROR 3 SBAD INET ERROR 
6123 025074 OO4437 0323324 JSR R4Y, LRLOAD ;LOAD “L” REGS 
6124 025100 000 RECAL :RECAL 
pis 102 0 WORDS 
1 104 70 IS BUFF ADDRESS 
pigs 106 -BYTE 0O i SECTOR 0 
61 025107 BYTE 0 ; TRACK O 
61e9 025110 0 ;CYLINDER O 
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REG ovate 


T102 


104417 


DRIVE OFF TRACK 


0C 1662 


033324 


000080 Odléle 


001662 
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ee a Bs 
ERROR 2 :TO SLOW/ ‘a TEORPLETE ERROR 
CLR INTSET CLEAR INTERRUPT FLAG 
TWATSS ;WAIT FOR INTERRUPT #2 
ERROR 2 

JSR R4, LRLOAD ;LOAD “L” REGS 

CLEAR ;CLEAR 

0 30 WORDS 

0 30 IS BUFF ADDRESS 

-BYTE 0. ;SECTOR 0 

-BYTE Q ; K 

0 ;CYLINDER 0 

TLOADRK ;LOAD RK REGS 

TWATIE WAIT FOR INTERSUPY 

ERROR 2 :TO SLOK/NOT COMPLETE ERROR 


TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 


JSR R4Y, LRLOAD ;LOAD “L” REGS 
OFFSET ; OFFSET 

0 WORDS 

01S BUFF ADDRESS 
-BYTE 0 3 SEC TOR 0 
-BYTE 0 ; TRACK O 

CYLINDER O 
MOVB #60,L.ASOF ;SET OFFSET AT +1200 
TLCADRK ;LOAD RK REGS 
TWATIE ;WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 


TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 





CLR INTSET ;CLEAR INT FLAG 

TWAT32 ;WAIT FOR INT #2 

ERROR 2 

TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 

JSR R4, LRLOAD ;LOAD “L” REGS 

CLEAR ; 

0 

0 


SEG 0148 
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104421 
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104002 


004437 
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033324 
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TLOADRK LOAD RK REGS 
TWATI6 that FOR INTERR 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 


TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5S, 6, 7 ;REPORT ALL ERRORS 


JSR R4Y, LRLOAD ;LOAD “L” REGS 

WROATA : ARDAT 4 

OBUFF ih so a BUFF ADDRESS 

Se fa 

C CYL NER RO 

MOV #DMO,L.MRi :SET DIAGNOSTIC MODE 

7TLOADRK 

iin R4, MCLOCK ;CLOCK THROUGH SEEK & DRIVE CLEAR 


; CLEAR DIAGNOSTIC MODE 
SMATT FOR INTERRUPT 
310 SLOW/NOT COMPLETE 


CLR ——s—«sRKMR1(R2) 
TWAT32 


s siiamineibsiie ieeiadisapeinanatpasaibindincskuniadiinineaiimemntd 
5 p REREREAELESLELLLELELELE LEELA LELERALELEAEALAALELEL ALLA LALLA LAES 


we eeeeese wees ee ee ee ee 


NOTE: 


THE DRIVE LOGIC DOES NOT RAISE ATTENTION AT THEOCCURRENCE 
OF THE ERROR. IT FIRST RETURNS THE HEADS TOCENTERLINE 
FIRES A HEADS SETTLING ONE-SHOT. ATTENTION IS NOT SET 
WILE FINISH THE UR ot ta TERRUPT a4 AE THOLIGA NO ERROR 
OCCURRED, fue Rive AtTENT WILL HAPPEN A LITTLE LATER 


(ABOUT 3 MILISECONDS) AT WHICH TIME THE DRIVE MUST BE SELECTED 
TRACK SET. 


TO CHECK THAT DRIVE OFF 


; SEREELRARARLERAELLALALLLLLALE LALA LARS E RELL E EERE ERE A ESE R SESE LE EE 
1 HHGHHBHHBHBHHGHHHHHHIHHBHBEHHHHHHBHEHGHEHEHEBHEGHHHEBHEEEHE 


THIS DRIVE LOGIC MAY CHANGE!!! IF IT DOES THIS 
TEST MUST BE ALTERED. 


CLR INTSET ;CLEAR INT FLAG 
TCHKOP en OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 


TWAT 16 ;WAIT FOR INTERRUPT FROM DRIVE 
;THAT SIGNALSDRIVE OFF TRACK ERROR 

ERROR 2 

JSR R4Y, LRLOAD ;LOAD “L” REGS 

SELDRV LORV 


ta WORDS 


SEG 0149 
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DRIVE OFF TRACK 


OC1616 


o0coie O0l2be 


033324 


001662 


;0 IS BUFF ADDRESS 
BYTE 9 ;SECTOR O 
BYTE 0 ; TRACK O 
;CYLINDER 0 
CLR L.MRI ;RESET DIAG MODE 
TLOADRK ;LOAD RK REGS 
TWATIE '  s3WAIT FOR INTERRUPT 
ERROR 2 ;TO0 SLOW/NOT COMPLETE ERROR 
TCHKWE ;CHECK OPERATION WITH ERROR EXPECTED 
DROTERR ;DRIVE OFF TRACK 


ERROR REPORT ANY DISCREPANCIES 
5 annennrcessnnnebecsas bebseneeuhsn seeehbeeeeeassieTTSeeeREEREEES 


:kTEST 103 FILE 


ISSUE A SUBSYSTEM CLEAR. ISSUE A eon ISSUE 
FORHAT. DO DO oF SELECT COmieNO IN IN TN 2b SE Bria 
PUT CONTROLLER I 


rose TO “EXLINDER 0 OTR TRACK “Bye WORDT TN. oe SECTOR 
FORMAT. HROUGH SEEK IVE CLEAR MESSAGES. 
SIMULATE INDEX PULSE. TURN OFF pings #6 Hs FILE 
UNSAFE SHOULD SET BECAUSE OF ATTEMPTING TO WRITE 
THROUGH SECTOR PULSE. REPEAT FOR ALL AVATLIABLE DRIVES. 


[PEpeaNEes reaeeneanenenenaeneeeaeenenneneneaeeaeenenenaeateay 


oe & om see eewe eeeee 
He 2 ORC Die he OC oe ote oe eo i 


jueees SCOPE 
” MOV #10. ,STIMES 00 10. ITERATIONS 
TSSINIT cee AR SUBSYSTEM 
ERROR 3 BAD INIT ERROR 
JSR R4, LRLOAD en “L” REGS 
RECAL ;RECAL 
0 70 WORDS 
0 70 IS BUFF ADDRESS 
-BYTE O ; SECTOR 0 
"BYTE 0 0 
0 CYLINDER 0 
TLOADRK - sLOAD RK REGS 
TWATIE : sHATT FOR INTERRUPT 
ERROR 2 *TO SLOW/NOT COMPLETE ERROR 
TCHKOP oreo OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
CLR INTSET CLEAR INT FLAG 
TWATBS WAIT FOR SECOND INT 
ERROR 2 


TCHKOP ; CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 REPORT ALL CONS 


4 


sa 








SEG 0150 


mn me ee re oe eee eee 2 


SG SSUES ann 


Be 


peaie; age 033324 





025557 000 

025560 000000 

O2S562 104417 

025564 104423 

G2S566 10400e 

025570 004437 033324 

025574 000127 

025576 

ae 

OeS604 000000 

OeS606 012737 O00040 001616 
14 7 

ee 

OeStee 001064 

O2S6e4 OSe762 000200 000026 


| 
| 
| 
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JSR 
CLEAR 
TLOADRK 
TWATLE 
ERROR 


TCHKOP 
ERROR 
JSR 


0 
- BYTE 
” thee 


TLOADRK 


THAT32 
ERROR 
TCHKOP 
ERROR 
JSR 
SELORV 


BIS 


RDHEAD! CFMT 
0 
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R4, LRLOAD 


4 ;0RS, 6, 7 
RY LRLOAD. 


~ 


~ 
f 
~ 
~ 


4 ;0R S, 6, 7 
R4, LRLOAD 


R4, MCLOCK 


#MIND,RKMR1(R2) 


;LOAD “L” REGS 
CLEAR. 


Se ADDRESS 


CYLINDER 0 

;LOAD RK REGS 

WAIT FOR INTERRUPT 

;T0 SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


;LOAD “L” REGS 
wes CFMT 


ay meinen 


sCYLINOER 0 


REGS 
RATT FO FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


;LOAD “L” REGS 
; SELORV 


30 WORDS 
0. IS BUFF ADDRESS 
:SECTOR O 


TRACK O 

CYLINDER O 

;LOAD RK REGS 

WAIT FOR INTERRUPT 

TO SLOW/NOT COMPLETE ERROR 
;LOAD “L” REGS 

; WRHEAD 


-1 WORDS 
;OBUFF IS BUFF ADDRESS 
ja 


;CYL 0 
SET TDTAGNOSTIC-MODE 


;LOAD RK REGS 
;CLOCK THROUGH SEEK AND DRIVE CLEAR 


;SET INDEX 


SES 0151 





BUY RR Ey nets (id pict SERERPRMRR add cada cacti 


o 
5 


BeaRReER 
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004437 
001001 


042762 


437 
1001 


00S062 
ae 


04002 
is 
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aMIND,RKMR1(R2) 


oo 


‘tenemos 









;CLOCK INDEX 


;CLEAR INDEX 
;CLOCK CLEAR 


;CLEAR DIAGNOSTIC MODE 


;WATT FOR INTERRUPT 
310 SLOW/NOT COMPLETE ERROR 


“CHECK OPERATION FOR ANY ERRORS 
, 10 ;REPORT ALL ERRORS 


;LOAD “L” REGS 
3 9ELDRV 


'0 WORDS ee 
'0 1S BUFF ADDRESS 
SECT oR 0 


CYLINDER 0 
;CLEAR DIAG MODE 
;LOAD RK REGS 
WAIT FOR INTERRUPT 
:T0 SLOW/NOT COMPLETE ERROR 
;CHECK OPERATION WITH EXPECTED ERROR 
UNSAFE AND DRIVE OFF TRACK 
;REPORT ANY DISCREPANCIES 


seLERe tly 
;BAD INIT ERROR 


;LOAD _“L™ REGS 


FCYLINDER O 
,SET MESSAGE SELECT ONE 
;LOAD RK REGS 
{HAIT FOR INTERRUPT 
'T0 SLOWNOT COMPLETE ERROR 
oan OPERATION FOR ANY ERRORS 
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000040 001574 


000108 oo0cc0 


ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 





BIT #S.HDHM,T.MR2  ;TEST IF HEADS HOME 
BEQ 1$ 


TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 





;BAD INIT ERROR 
CLR INTSET ;CLEAR INT FLAG 
TWAT1S9 ;WAIT FOR APPROX 160 +5 
NOP DON’T CARE ERROR RETURN 





TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 


;BAD INIT ERROR 








MOV BIE,RKCS1(R2) ;SET INTERRUPT ENABLE 
TWAT8S ;WAIT FOR SECOND INTERRUPT 
ERROR 2 





CLR L.MR1 ;CLEAR MR1 






JSR R4Y,LRLOAD sEPER “L” REGS 
— 


0 3 IS BUFF ADDRESS 

-BYTE 0 ;SECTOR O 
ihe 0 ; TRACK O 

TLOADRK ;LOAD RK REGS 

TWAT16 ito g FOR INTERRUPT 

ERROR 2 O SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 

JSR R4Y, GENCOM ;BUILD HEADERS 

1200 

JSR R4Y, LRLOAD LOAD “L™ REGS 

WRHEAD 

-102 j-102 WORD 

OBUFF oe oR BUFF ADDRESS 
-BYTE QO i SECTOR 

BYTE 0 RACK 0 

‘ CYLINDER 0 

TLOADRK ;LOAD RK REGS 

TWATE4 WAIT FOR INTERRUPT 

ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
TCHKOP + REBOR OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 ORT ALL ERRORS 


fp RHRRRSERAAA RARE RARER ALA RL ARLE RELA RRA AAL LRA RRARE RA LALA LAL AA AALS 
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sETEST 104 eid TEST aa O ted hea eet oT 


000904 
012737 
104416 
104003 
013762 
001771 
104416 
104003 


fe oie oe he Oe Oe Ok 
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hin S TEST IS in 


EA elbe EM HUH Hea Heer Oo 


TNENBRY" "ReuTthe alo To" 3 ate Test PPOC OWING TRE skip. 


IN ADDITION, THE peIVE IS CLEORED AND THE HEADS ARE ALLOWED 
ay REL THIS MUST BE DONE 7 Oe EnT UNEXPECTED INTERRUPTS 
FROM THE DRIVE COMING READY AT A LATER TIME. 


3* 
SuSeaneanegnbaneaeeaneanta eases Hea HES NEO EEO EEEEST REE EEO EEE 


SCOPE 
” MOV #1,STIMES ;:D0 1 ITERATION 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 

MOV DRVNUM RKCS2(R2) ;LOAD DRIVE NUMBER 
MOV RKCS1(R2)  — ; SELECT THE DRIVE 
BIT abhor, RKDS (Re) ; TEST IF DRIVE READY 
BEQ :NO LOOP 

TSSINIT :CLEAR SUBSYSTEM 
ERROR 2 *BAD INIT ERROR 


u 
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000004 
pode00 


001626 


oole30 


000400 


000004 
oo44S2 
001630 
001626 


000012 


000001 
001354 


Ble 


001354 
001630 


001102 


001262 


001600 


. SBTTL — OPERATIONS 


NEWDRV: SCOP 
MOV #1 STINES ;DO_ONLY ONCE 
BIT #BtT7, DRVBIT ; HERE hie TESTING DRIVE 7? 
BNE 3$ - YES-SKIP 
1S: INC RVNUM sBUMP TO NEXT SEQUENTIAL ADDRESS 
ASL DRVBIT ‘BUMP DRIVEBIT TO THAT POSITION 
BIT DRVBIT, SDEVM ie Te DRIVE TO BE TESTED? 
BIT 48178, DRVBIT at DRIVES TESTED? 
8R 1$ *ELSE CHECK NEXT DRIVE AVAILABLE 
23: MOVB #4, STSTNM ;SET TEST NUMBER FOR REPORTS 
IMP TSTLUP :GO TO TEST LOOP TO CHECK THIS DRIVE 
3S: CLR DRVBIT ; CLEAR DRIVE BIT 
CLR DRVNUM CLEAR DRIVE NUMBER 


i eeu eeeeeaneaeenenensuanennesauenesaaaereesanoeeennaeeeeeas 
;*TEST 105 RESET ATTENTIONS WITH UNIBUS INIT 

; 
’ 


% 
3% DO A RECALIBRATE ON ALL AVAILIABLE DRIVES. 
+ ISSUE A RESET. MAKE SURE ALL ATTENTION RESET. 


en ee ee, ee 
MOV #10. ,STIMES ;:D0 10. ITERATIONS 
CLR RO APPAR DRIVE POSITION COUNTER 
MOV #1,R1 ‘PRESET BIT FOR POSITION O IN TESTING FOR AVAIL 
MOV SDEVM,R3 :GET DEVICE MAP 
TSSINIT CLEAR SUBSYSTEM 
ERROR *BAD INIT ERROR 
1$: BIT R1,R3 ‘TEST IF THIS DRIVE AVAILABLE 
BNE 2 YES-SKIP TO SEEK 
3S: ASL Rl “SHIFT DRIVE SELECT BIT 
INC RO ‘BUMP DRIVE POSITION COUNTER 
BIT #B1T8,RO SAL DRIVE POSITIONS CHECKED 
BNE 1$ * NO-LOOP 
BR 45 *SKIP TO RESET 
23: MOV RO,L.CS2 sLORD DRIVE NUMBER 


MOV #RECAL,L.CS1  ;LOAD RECALIBRATE 


TLOADRK ;LOAD RK REGS 

TWATYS ;HATT FOR INTERRUPT 

ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
CLR INTSET ;CLEAR INTERRUPT FLAG 

TWAT8S ;WAIT FOR SECOND INTERRUPT 
ERROR @ 

TCHKOP ;CHECK OPERATION FOR ANY ERRORS 


ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 
BR 3$ ;LOOP FOR NEXT DRIVE 


SEQ 0155 






026534 
aees40 
Oe6S42 
026544 


T105 


000005 


1 


nN? 3° 
104420 
105737 
001407 
012737 


012737 
104012 


104421 
104004 
000753 
052762 


000031 


032434 
001557 


053262 
053406 


000062 


000001 
001354 


001662 


000040 O00010 YS: 
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OZREKB.P RESET ATTENTIONS WITH UNISUS INIT SEQ 0156 


001470 
osss44 


001262 


001600 









4$: RESET ;UNIBUS RESET 
ed £65. oR ;00 A SHORT DELAY 


S$: " 
N c 
JSR PC, OPTTST ;SET UP OPTIONS 
TGETRK ;GET RK611 REGS 
TSTB T.ASOF+1 ;ALL ATTENTION RESET? 
BEO 63 ; YES-SKIP 










MOV #EMDA, EMLON ;"ORIVE ATT NOT RESET RESULT OF 
MOV wENUR, ,OFO11A ;UNIBUS RESET” 






OS  PeH UHHH EHHHHEEEEHHEHHHEE aE HEHEHE REESE 
:KTEST 106 RESET ATTENTIONS WITH SUBSYSTEM CLEAR 

2x DO A RECALIBRATE ON ALL AVAILABLE DRIVES. 

: ISSUE A SUBSYSTEM CLEAR. MAKE SURE ALL ATTENTIONS 





Fr a 

















MOV #50. , STIMES ::D0 50. ITERATIONS 
CLR RO -CLEAR DRIVE POSITION COUNTER 
MOV #1,R1 *PRESET TO TEST POSITION O 
MOV SDEVM,R3 *CUT DEVICE MAP 
TSSINIT *CLEAR SUBSYSTEM 
ERROR 3 *BAD INIT ERROR 
1S: BIT R1,R3 ;THIS DRIVE AVAILABLE? 
BNE rk} *YES-SKIP TO SEEK 
38: ASL Ri *SHIFT TO NEXT DRIVE POSITION 
INC RO *DUMP POSITION COUNTER 
BIT #B1T8,R1 "ALL POSITIONS CHECKED 
BNE 1$ :NO-LOOP 
BR 4g :YES-SKIP TO CLEAR 


M RO,L.CS2 sLOAD DRIVE NUMBER 
MOV #RECAL,L.CS1 ;LOAD RECAL IBRATE 


TLOADRK OAD RK REGS 

TWATIE ;WAIT FOR INTERR 

ERROR 2 TO SLOW/NOT COMPLETE ERROR 
CLR INTSET ;CLEAR INT FLAG 

TWATS8S WAIT FOR SECOND INT 

ERROR 2 

TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R5, 6, 7 ;REPORT ALL ERRORS 

BR 3$ ;LOOP FOR NEXT DRIVE 





¥SCLR,RKCS2(Re) ;D0 SUBSYSTEM CLEAR 





— ee 
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DZREKB.P1! T1068 RESET ATTENTIONS WITH SUBSYSTEM CLEAR SEG 0157 
6603 O265S2 912701 00003) MUV #25. Rl -DO A SHORT DELAY 
6604 O26556 00530! S$: DEC RI 
6580S O26560 901376 BNE $ 
Seo? O26562 104420 TGETRK GET RK611 REGS 
6509 pebste 0S737 001557 TSTB. 3s: T. ASOF +1 s TEST ALL ATTENTION RESET 
bb10 1407 BEO & : YES-SKIP 
Biz O26S72 O12737 OS3e62 001470 MOV -—s«#EMDA,EMI2N ss “DRIVE ATT NOT RESET AS RESULT OF 
6513 026600 O12737 053475 Osssuy MOV sEMSCLR,OFOLLA :SUBSYSTEM CLEAR” 
ae O26606 1040ie ERROR le 
6616 O26610 
S617 : [ozsavssnovensenencensenenscenesnsvscstegeentessesstssattsass 
p68 He 107 SVAL AND ATTENTION FROM OTHER DRIVE 
£620 i Ps RE CALIBRATE ON ONE AVAILABLE DRIVE. 00 A SELECT 
£621 # if ANG? AVAILABLE DRIVE. MAKE SURE STATUS VALID 
6622 # IS SET. WAIT FOR SECOND INTERRUPT FROM RECALIBRATE 
6623 i MAKE SURE S ATUS S vaLID REMAINS SET AND DRIVE STATUS 
654 is CHANGE REMAINS 
BPSe i REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES. 
EPSs = + # NOTE: THIS TEST WILL ONLY BE DONE IF AT LEAST 
bbe3 ia TWO DRIVES ARE AVAILABLE. 
6631 se SLEFEFLEEEELERF ESAS ESLFE LSA SSS SS RLEE PELE LESEEFLLESERS SAS SS ELSHE 
6632 026610 o00004 t67107: SCOPE 
6633 Oeb6l2 012737 o00024 O0l2be MOV 820. ,STIMES : TIONS 
6634 OebbeD Ee 001354 MOV SDEVA =(SP) [A 12 ee ON STAC 
£535 Gebbes 033524 JSR RY, BITCN R OF BrTscs. OF DRIVES) 
£536 000001 CMP (SP}+, 8 
Se eee Gee om a a ee 
ees GSMS bol ge |OOiS Ke 
ey O26644 104401 047540 TYPE OPRO18 “OVERLAPPED OPERATION BYPASSED” 
a 026650 000137 03006 1S: IMP $eop GET CUT. 
CE44 OeEEsY 01 177777 001224 25: MOV 8-1, STMP] OOP CONTROL FLAG 
BEYS Oebbbe ee 001354 MOV SDEUM, RS ICE MAP 
bee 005000 CLR RO FOR DRI #0 
C266 905001 CLR Ri CLEAR Sa 
eas Deere 1e704 6000! MOV SiR 2 ve otto : 
oe ; 
e550 : 826712 core ery $2, SLPERR T E LOOP ON ERROR 
Geet ee 5hba7 ff 5&0 SET UP POINTERS 
Fee eee ow %: rssnar CLEAR SUBSYST 
bees 026714 } ERROR 3 EAB tT NET ERROR 
6657 026716 010037 001610 MOV RO,L C52 sLOAD DRIVE A 
6658 ee 010037 O0l626 MOV RO; ORVNUM ‘LOAD FGR REPORT 
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SVAL AND ATTENTION ceoM OTHER DRIVE Sz¢ 0158 

“6859 026726 012737 000113 901600 MUV SRECAL,L.CS1  ; LOAD RECAL 

6651 O26734 104417 TLOADRK OAD RK 2ess 

e558 026738 pues THATIG irait FOR INTERRUPT 

740 1 ERROR 2 70 SLOW/NOT COMPLETE ERROR 

B64 OCes74e 104421 TCHKOP ‘CHECK OPERATION FOR ANY ERRORS 
S565 O26 io4oo4 ERROR 4 ;0RS, 6, 7 :REPORT ALL ERRORS 

bbb? 026748 005037 Oo0l1662 CLR INTSET CLEAR INT FLAG 

B69 O267S52 010137 001619 MOV Rl, L. cS LOAD DRIVE B 

£670 O26756 910137 001626 MOV ‘LOAD FOR REPORT 
per) G2b762 Ole737 00018! oo1600 MOV RAELORV. . CS1 :LOAD DRIVE SELECT 
6673 026770 104417 TLOADRK ;LOAD Rk REGS 
6574 Oe6772 104423 THATIG WAIT FOR INTERRUPT 
B67 026774 104002 ERROR 2 'T0 SLOW/NOT COMPLETE ERROR 
6677 026776 104421 TCHKOP sCHECK OPERATION FOR ANY ERRORS 
578 627000 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
6580 O27002 032737 100000 oolsSe BIT sSVAL,T.DS CHECK IF STATUS VALID SET 
6681 927010 001007 BNE 4g ‘YES - SKIP 
6682 Oe70le 012727 OS3076 OO14E0 MOV BSEMSVAL,EM1IN "STATUS VALID NOT SET RESULT OF 
6683 O27020 Ole737 045134 OS5544 MOV SOPEROG,OFOLIA ;ORIVE SELECT™ 
6584 Oe70eb 104011 ERROR 
6585 027030 O0S037 o01b62 4S: CLR INTSET ; CLEAR INT FLAG 
6687 927034 104436 TWAT2S WAIT FOR SEEK COMPLETE INTERRUPT 
6688 027036 O00401 44S NONE RECEIVED - SKIP 
bee 027040 00406 BR css : RECEIVED - SKIP 
6691 O27042 010037 001626 44g: MOV RO, DRVNUM T DRIVE FOR REPORT 
669 O2704 012737 OS5i33 001372 MOV #80H017, DHEN tS ROMMAND - SELECT AFTER RECAL” 
BES G270S4 104002 ERROR 2 
669S 027056 104420 SS$: TGETRK :GET RK REGS 

£69 027060 O3e737 100000 ocisse BIT sSVAL,T.DS :TEST IF SVAL STILL SET 

55g? 027066 001007 BNE ss YES - SKIP 
6699 027070 012737 7 001510 MOV #EMSVAL,EMIYN ;"STATUS VALID RESET RESULT OF 

6700 027076 012737 O55156 Oosss44 MOV 8OHO18,OFOL1A  ;RECAL COMPLETE ATTENTION AFTER SEL” 
701 627104 04014 ERROR 14 

ate 027106 104415 cS: SCOP! LOCAL LOOP TO 3S 

6705 : THE FOLLOWING CODE S THE TEST TO BE RUN ON EVERY COMBINATION 
6706 : OF DRIVES AVAI HE FIRST PASS OF THE PROGRAM WILL USE THE 
£707 : OWEST NUMBER DRIVE AS A THE NEXT HI NUMBER DRIVE AS 
6708 : 8 THE SECOND PAS ORIVEASB. T THIRD S USES 
6709 : HE LOWEST NUMBER DRIVE B AND. THE GHEST NUMBER DRIVE 
6710 : AS A. THE FORTH PASS A&B AGAIN. THIS CONTINUES 

zt : NTT ALL ORIVES HAVE BEEN TESTED WITH THE LOWEST NUMBER 
713 : , 


THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE 





RKE11 dee 


Tl ‘ 


28 
B ¢ 


ee 


001224 


000460 


000409 


026712 
cocoed! 


026712 


001224 


001224 


BS lee DIPGNOSTIC MACYL1 27(732) 
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SVAL AND ATTENTION FROM OTHER DRIVE 


: THIRD HIGHEST AS B. 
: THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE 
; CHECKED. 


11S INC STMPL 
SNE  —=«:168 

128 BIT R3,RS 
BNE 13 

22$: INC RO 
ASL R3 
BIT #8178,R3 
BEQ les 
BR 50S 

133: MOV RO,R1 
MOV R3,R4 

14$: INC Ri 
ASL RY 
BIT RY. RS 
BNE is¢ 
BIT #81T8,R4 
BEQ 14§ 
5R 50s 

15S: JMP 33 

163: BIT SBITO,STMP1 
BEQ 
MOV RO,-(SP) 
MOV R3,-(5P) 
MOV RY; RO 
MOV R1:RO 
MOV (SP)+,R4 
MOV (SP)+'RI 
IMP 3$ 

178: BIT #B1T1,STMP1 
BEQ 19$ 

18S: INC RO 
Ess 
BNE 20$ 
BIT #9178,R3 
BEQ 1 
BR 21$ 

19S: INC Rt 
Bit RY. RS 
BNE 
BIT #81T8,R4 


THEY ARE SWAPPED ON THE NEXT PASS. 


; INCREMENT PASS CONTROL 
SKIP IF NOT ZERO 
;(IT WILL BE ZERO ON THE 1ST PASS) 


TEST IF. BIT POSITION FOR © AT AVAIL DRIVE 


;BUMP RO (DRIVE A 
‘SHIFT DRIVE oF eer BIT ONE POSITION 

‘IF BIT 8 IS SET, ALL DRIVES HAVE 

SEEN SH CKED; IF NOT CHECK NEXT POSITION 


;SET ORIVE 8 TO THE SAME AS A 


;BUMP_R1 (DRIVE B) 
;SHIFT SELECTOR BIT QNE POSITION 
;IS THIS DRIVE AVAIL? 
; YES-SKIP 
sWERE ALL POSITIONS CHECKED? 
;NO-LOOP 
;DONE-EXIT 
;GO0 DO. THE TEST ON re DRIVE A&B 
; CONTAINED IN RO 8 RI 

S FLAGS 90D? 


ICWAP RO8 RI, R38 RY 
TO EXCHANGE DRIVE A 8 B 


;REPEAT TEST ON THIS COMBO. 


ihbes 3 re FLAGS AT HALF MODULE 4? 
-SKIP TO BUMP DRIVE B 


V A 
Li DRIVE SELECT BIT 


iSHIFT ORL “pelve SELECT BIT 
;AVAILABLE 
: YES-SKIP 
“ALL CHECKED? 


SEG 0159 
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T107 SVAL AND ATTENTION FROM OTHER DRIVE . SEO C160 
6771 O27 001771 BEO 19$ :NO-LOOP 
b778 027264 O00404 BR 235 * YES-SKIP TO NEXT PASS 
br 027266 000137 026712 20$: JMP 3$ GO TEST THIS COMBO 
B26 027272 910100 218: Mov Ri RO ie DRIVE 0 Tt POSITION THIS PASS 
$778 psceee 001224 23$: CLR STMP] CLE PRES FLAGS “sete 
6779 ber de 000137 de7le2 ane, INP 22$ :G0 
6 1 5 RRSREAARESSLELELERLAALAERA LEAL SAA RASS ALAA EA AALLALALE LASALLE LAAS AE 
E7Be ; ATE TEST 110 OVERLAPPED OPERATIONS 
i A RECALIBRATE ON BOTH RIVE A S 
eoe¢ is BOER BECEL IER aris Pim is Mette 
678 i DATA TO EYL INOER I 
p78 i Es : oF Shrve™ A Oa ty ee gl 
p73 3 REPEAT FOR ALL COMBINATIONS OF TWO DRIVES. 
6792 t% NOTE: IF ONLY ONE DRIVE IS AVAILABLE THE 
B33 i TEST WILL NOT BE DONE. 
E735 s SLELEEEKEESEELE LA KLE ERS KEKSL SERRA LES LE RE RELSREE SELLE LES RPS LE EESS 
pe a He wired 
be 10 Oi o00024 001262 MOV #20. , STIMES ::D0 20. ITERATIONS 
| 6799 927316 012737 177777 O01224 2%: MOV 8-1, STMP1 ;SET LOOP CONTROL FLAG 
£800 be? es 01 001354 MOV SDEVM, RS *GET DEVICE MAP 
| ee Bae fee et em Fon GEN 
| §803 aes b13703 000001 #1,R3 *SET DRIVE POSITION A 
| Bape persan Bt5s97 BOO oto NOY wa SLPERR ET Poca C006 On ERROR 
| €§806 027352 OO0SHS 115’ ?GO SET UP POINTERS 
| §807 027354 3S: 
| §808 027354 104416 TSSINIT ;CLEAR SUBSYSTEM 
| 803 027356 104003 ERROR 3 *BAD INIT ERROR 
681 010037 001 MOV RO, ORVNUM sSTORE DRIVE FOR REPORT 
| bee terse 010037 00161 MOV RO’L.CS2 et BRIVE Ato RECAL 
| «Beis 01 000113 001600 MOV - #RECAL,L.CS1 
| 
| §81S 027376 104417 ;LOAD RK REGS 
GBI de7400 hates TWAT 16 *WAIT FOR INTERRUPT 
| 681 104002 TO SLOW/NOT COMPLETE ERROR 
| e818 027404 005037 001662 CLR INTSET “CLEAR INTERRUPT FLAG 
e820 10 104437 THATS WAIT FOR SECOND INTERRUPT 
i le 104002 2 70 SLOW/NOT COMPLETE ERROR 
Ss 027414 012737 OO010S 001600 MOV #CLEAR,L.CS1 UP T AR DRIVE 
| 6824 0274 ret ie TLOADRK ‘ +O URK Re cee 
| §825 Oe74e4 104423 TWAT ILE * WAIT FOR INTERRUPT 


, 6826 027426 204002 ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
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OVERLAPPED OPERATIONS 


4$: 


Hd SERERPRERELA Satis dalla auuueeae ete ee anmiannvitcinot 





OZREKB.P 11 


027430 
027430 
0274, 
0274 
De7442 


Berusg 


dd 


027464 
70 

pera7y 

0274 


2 


sewe EN Jane Beene 


T110 


049000 


001626 
001610 
000112 


O016E2 


001540 


001690 


001690 


001540 


S$: 
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tEEBORT Ay OPERATION FOR ANY ERRORS 
est <i of Spite SET 


STORE RIVE FOR REPORT 
;SETUP DRIVE B 10 RECAL 


TCHKOP 
RROR : ;OR 21 6, 7 


MOV Ri, ORVNUM 
MOV RIL. 
MOV #RECAL,L.CS1 


TLOADRK sLOAD RK REGS 
TWAT IE :WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
CLR INTSET CLEAR INT FLAG 
TWATBS :WAIT FOR SECOND INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
MOV SCLEAR,L.CS1 §_;SET UP DRIVE CLEAR 
TL ;LOAD RK REGS RP 
TWATIE sHAIT FOR 
ERROR TO SL : TERR PLETE ERROR 
TCHKOP ; CHECK 1OBERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 :REPORT 
BIT pr; T.csl -TEST IF DOI STILL SET 

z YES = LOOP 
MOV RO, ORVNUM ;STORE DRIVE FOR REPORT 
MOV RO,L.CS2 ‘SETUP DRIVE A TO SEEK 
MOV #1°L.DCYL :T0 CYL 1 
MOV #StEK,L.CS1 
TLOADRK sLOAD RK REGS 
TWATI6 *WAIT FOR INTERRUPT 
ERROR 2 >TO SLOW/NOT COMPLETE ERROR 


;STORE DRIVE FOR REPORT 
MOV R1‘L.C *SETUP DRIVE B TO WRITE DATA 
MOV #100.L.OcyYL “AT CYL 100 
HOV #-400 L-Wc :400 WORDS 


TLORORK sLOAD RK REGS-DO WRITE 

TWATBO ;WAIT FOR INTERRUPT 

ERROR 2 :70 SLOW/NOT COMPLETE ERROR 

TCHKOP tas OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 

Nov RO, DRVNU sSTORE DRIVE FOR REPORT 

BIB Ra, T.ASOFS1 CHECK IF DRIVE ATTENTION IS DRIVE AQ 
MOV IN }*DRIVE ATTENTION NOT SET RESULT OF 
MOV : SEEK" 
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7110 
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8 
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= 
- 
Oo 


a 


5 
4 


m 
- 
x 
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oOo 


VERLAPPE 


001224 


o0o400 


027354 


027354 
cocoate 


001224 


001224 


Bde 
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1C$: 


118: 


128: 


ees: 


138: 
14S: 


15S: 
16S: 
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SCOP ;LOCAL LOOP TO 3$ 


THE FOLLOWING CODE CAUSES THE TEST TO BE RUN ON EVERY COMBINATION 

OF DRIVES AVAILABLE. THE FIRST PASS OF THE PROGRAM WILL USE THE 
LOWEST NUMBER DR I HIGHER NUMBER OR IVE AS 

B. THE a THE THIRD FASS USES 

jm LOWEST NUMBER DRIVE AS B AND THE SRD HIGHEST NUMBER DRIVE 

AS A 8 THIS CONTINUES 

UNTIL ALL DRIVES HAVE BEEN TESTED WITH THE LOWEST NUMBER 


THE SECOND HIGHEST NUMBER ORIVE IS THEN USED AS A AND THE 
THIRD HIGHEST AS B. THEY ARE SWAPPED ON THE NEXT PASS. 


THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE 
CHECKED. 


INC STMP] ; INCREMENT PASS CONTROL 
BNE 16$ i SKIP IF NOT 
*(IT WILL BE ZERO ON THE 1ST PASS) 
BIT R3,RS test IF BIT POSITION FOR A AT AVAIL DRIVE 
BNE 13$ : YES-SKIP 
INC RO ;BUMP_RO (DRIVE A 
ASL R3 :SHIFT DRIVE SELECT BIT ONE POSITION 
BIT #81T8.R3 -IF BIT 8 IS SET, ALL DRIVES HAVE 
BEQ 12 "BEEN CHECKED; IF NOT CHECK NEXT POSITION 
BR cos tBONE-EXIT 
MOV RO,R1 ;SET DRIVE 8 TO THE SAME AS A 
MOV R3;R4 
INC R1 BUMP _R1 (DRIVE 8) 
A RY : SHIFT Se ECTOR ait! ONE POSITION 
BI RY, RS 71S THIS DRIVE AVAIL? 
BNE is$ : YES-SKIP 
SIT #8178,R4 *WERE ALL POSITIONS CHECKED? 
BEQ $ :NO-LOOP 
BR :DONE-EXIT 
IMP 3 : 09 THE TEST ON THE DRIVE A 8 E 
:CONTAINED IN RO 8&8 R 
BIT #B1TO,STMP1 -IS PASS FLAGS O00? 
BEQ 17§ :NO-SKIP 
MOV RO,-(SP) ; 
MOV R3,-(SP) *SWAP RO 8 R1, R38 RY 
MOV R4,R3 *TO EXCHANGE DRIVE A & B 
MOV R1:RO 
MOV (SP)+,R4 
MOV (SP)+/R1 
JMP 3$ ;REPEAT TEST ON THIS COMBO. 
BIT #B1T1,STMPL ;TEST IF PASS FLAGS AT HALF MODULE 4? 
BEQ 19$ *NO-SKIP TO BUNP DRIVE 8 
INC RO ‘BUMP DRIVE A 
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OVERLAPPED OPERATIONS 


a 


8 
a 


auuael © 


8 
4 





Oo 
- 
oO 
8 


Bee 


ee ee 


19S: 


20S: 
218: 
238: 
50S: 
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+ AVATL DRIVE SELECT SIT 
TLE’ 


-SK 
ine TO NEXT PASS 


ee SELECT BIT 


mL 
iN OOr TO NEXT PASS 
;GO TEST THIS COMBO 
T DRIVE 0 TO LOW POSITION THIS PASS 
i} Re TO AGREE 








RK611 FUNCTIO 
DZREKB. Pil 


6961 


NAL_CONTROLLER DIAGNOSTIC 
END OF PASS ROUTINE 


060004 
005037 
poeea7 
042737 
Oo006 
003022 


rang 


38 
_ 
=f 


8 
R 


ARERR 


ee 
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~SBTTL END OF PASS ROUTINE 
$5 RRR ERE R EERE EER EN EER RHEE EEE EERE EERE EEE EEE ERS ERASE EREE 


*kINCREMENT THE PASS NUNBER (SPA 
j STYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
; HERES A MONI To iT 
-#IF THERE ISN’T JUMP TO TST1 
SEOP: 
SCOPE . 
ce HS HS TS Ae cect 
Fhe Aue + TERR eNENT Rage NUMBER 
BIC #100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ ;;LO0P? 
SEOPCT: .WORD 
BGT SDOAGN s YES 
MOV (PC)+,a(PC)+ 3:RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE SENDMG ;; TYPE “END PASS a” 
MOV $PASS, -(SP) *:SAVE SPASS FOR T T 
TYPDS G0 TYPE--DECIMAL ASCII WITH SIGN 
TYPE SENULL >: TYPE A NULL T 
SGET42: MOV de42. RO *:GET MONITOR ADDRESS 
BEQ SDOAGN _ $3BRANCH IF NO MONITOR 
RESET CLEAR THE WORLD 
SENDAD: JSR PC, (RO) *:G0 TO MONITOR 
NOP 3;;SAVE ROOM 
NOP ;;FOR 
NOP s;ACTL1 
SDOAGN: 
JMP a(PC)+ ; ;RETURN 
SRTNAD: .WORD TST1 
SENULL: .BYTE -1,-1,0 -:NULL CHARACTER STRING 
SENDNG: .:ASCIZ <15><12>/eNnD pass’ # 


\SBTTL ROUTINE TO SIZE MEMORY 

° 91 me aga marten sie tin eng womanhood 

: ALL: ich PC, SSIZE 

¥SLSTAD WILL CONTAIN: 

Fe Play = St MED EE TG en 
ILL conta THE LAST BANKCAS A SBE” 


MANAGEMENT KEY 


HE 
:4BITO? = 0 DON’T MANAGEMENT 
i 1 Be SETUP BEFORE THe CALL 
T HAVE MEMORY MANAGEMENT OPTION 


“ = 
2 


SP) ;;SAVE RO ON THE STACK 
-(SP) ;;SAVE Rl ON THE STACK 









7017 O30ele 
7018 ete 


BSR ada cai apa Muner eee erase ARS ei inp sie 


010246 
010346 


1 
aia 
soon 


0 
1 


100062 


Gane 


x 


Sa RSS 


Ss 


000004 
000006 


000006 
003776 


177600 
030344 


177572 
030376 
143776 
000040 
172356 


177572 
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MACYLL 27(732) 


V__SP.RO - 
s3SET THE aE RRVEC PS TO THE PRESENT PS 


SKT11: 


1S: 


es: 
33: 
4§: 
SKTOUT: 
SKTNEX: 


SCORE: 
1S: 


S$CROUT: 
$SIZEX: 


TST 


peeeiatt pict ieee es oi 


33s 
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SEG O165 





Re, -(SP) ;;SAVE Re ON THE STACK 
R3,-(SP) 339A ON THE STACK 
S¥ERRVEC = (SP) ;;SAVE PRESENT ERROR VECTOR PS & PC 


asERRVEC+2, -(SP) 
SAVE THE STACK POINTER 


PUSH OLD PSW AND PC ON STACK s 
(SP)+, JHERRVEC+E -:SAVE THE PSW IN a#ERRVEC+2 


(Bese : ET CORES accnent 


9 
3;SET TO USE MEMORY MANAGEMENT 


SCORE : BR IF NO 
#SKTNEX, QHERRVEC’;:SET FOR TIMEOUT 

a#SRO ::KTI1 ARE YOU THERE? 
#1C0000,SKT11  ;:YES--SET KTI1 KEY 

-(SP) >; INITIALIZE FOR “PAR™ LOADING 
>:ADDRESS OF FIRST “PAR™ 


#t08,R3 ;;LOAD EIGHT “PAR.’S” AND EIGHT “POR. ’S” 
#77406, -40(R2) $3POR = HK, UP, READ/URITE ) 













200? ( ::UPDATE FOR NEXT “PAR” 
3,1$ >:LOOP UNTIL ALL EIGHT ARE LOADED 
#177600,-(R2)  ;;SETUP KIPAR7 FOR I 
-(R2) ::SETUP KIPARS FOR TESTING 
82S, a8ERRVEC  3:CATCH TIMEOUT IF NO 

* a8SR3 *:ENABLE 22 BIT MODE 

THIS PDP-11 

(SP)+, (SP)+ ;;CLEAN OFF 


4§ TRY 
(R2) Re *:GET LAST BANK+1 

auSRO He OFF MEMORY MANAGEMENT 
#100000,S$KT11 _;;KT11 NON-EXISTENT 
8SCROUT, J#ERRVEC ;-SET FOR TIMEOUT 

Re i356 UP BANK 

#4000, R1 >: INCREMENT BY 1K 

#40, Re 221K STEP 

{Ri} >: TRAP ON TIME OUT 
#177776,R1 *?LAST ONE 

1$ >:NO--TRY AGAIN 

#4000, R1 

#40, Re ;;DROP BACK 

RO, SP *?RESTORE THE STACK 
(SP)+, @#ERRVEC+2 ;;RESTORE ERROR VECTOR 
(SP)+) SHERRVEC 

mie ite ae 

RAE RS RESTORE R3 

(SP)+'R2 > RESTORE Re 

(SP)+/RI > RESTORE RI 

(SP)+,RO ;;RESTORE RO 





3 
3 


SPUR ERMC r Cty iate 


NANNING 
28828 


ps 


oOo 
— 
— 
mreen ey 


ee 


é 


s 


~ 
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a od 


000400 


150324. 


000110 
001102 


031040 
001106 
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001115 001103 





RkK611 _— CONTROLLER DIAGNOSTIC MACYL1 27(732) O1-0CT-76 10:50 PAGE 133 
DZREKB.P ROUTINE TO SIZE MEMORY 


RTS PC 
$LSTAD: .WORD Q ;;CONTAINS THE LAST ADDRESS 
SLSTBK: .WORD O ;;CONTAINS THE LAST BANK 
-SBTTL SCOPE HANDLER ROUTINE 


jp RRRRRRMA RRR EKER EEA E EERE EERE EERE REE EERE EE EERE EE EE ARES SE EREE EE 

; THIS ROUTINE $0 CONTROLS THE Feb OOR ING OF SUBTESTS. IT WILL INCREMENT 

;#QND LOAD THE TEST NUMBER(STSTNM) te THE DISPLAY REG. (DISPLAY<7:0> } 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

eI _— OPTION gt BY THIS ROUTINE ARE: 


LOO 
;*SW11=1 INHIBIT ITERATIONS 
; *SWO9=1 LOOP 
jeuteel LOOP ON TEST IN SWR<7:0) 
% SCOPE ; ; SCOPE=I0T 
SSCOPE: 


CKSWR -TEST FOR CHANGE IN SOFT-SWR 
+360 TO ERROR ROUTINE IF RETURN Pe LESS THAN 1002 
OTHERWISE CONTINUE 
CMP (SP), #1002 ; UNEXPECTED TRAP OR INTERRRUPT 


BHI *:ARE TRAPPED HERE VIA IOT 
IMP SERROR GO PROCESS UNEXPECTED TRAP 
1S: BIT #81714, 2SWR ;;LOOP ON PRESENT TEST? 
B “YES IF SWl4= 
j¥HBBESTART OF CODE FOR THE XOR tisTERsesss 
$xTSTR: BR 6$ is1P RUNNING ON THE “XOR" TESTER CHANGE 
THIS INSTRUCTION TO A “NOP™ (NOP=240) 
MOV JSERRVEC, -(SP) $i HTS THE CONTENTS OF THE ERROR VECTOR 
MOV #S5S,d8ERAVEC 3:SET FOR TIMEOUT 
TST ae ieeitt >: TIME OUT ON XOR? 
MOV (SP)+, J#ERRVEC j RESTORE, THE ERROR VECTOR 
BR SSVLAD 33G0_TO NEXT TEST 
Ss: CMP (SP)+, (SP)+ ‘CLEAR THE STACK AFTER A TIME OUT 
. MOV (SP)+’ J¥ERRVEC i TRESTORE THE ERROR VECTOR 
BR 7§ OOP ON THE PRESENT TEST 
6$:;8888#END OF CODE FOR THE XOR ‘TESTERSuaes 
BIT #81TO8, ISWR ;;LOOP ON SPEC. TEST? 
2s ;38R_IF No 
CLR =-(SP) *CLEAR A TEMP. LOCATION 
aSWR, (SP) :  BTCKUP THE DESIRED TEST NUMBER 
BEQ as *:BRANCH IF BAD TEST NUMBER IN SWR 
CMP #110, (SP) > = CHECK IN THE SWR 
BLT 8S ;:BRANCH IF TEST NUMBER IS OUT OF RANGE 
MOV (SP), STSTNM ;;UPDATE THE TEST NUMBER 
DEC (SP) * BACK 


BY 
: ISCALE THE TEST T NUMBER AS AN INDEX 


#SSWOSTBL,(SP) ;;FORM THE ADDRESS OF TEST POINTER 
MOV (SP)+,SLPADR  ;;SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON TEST 
8$ TST SP)+ AN THE BAD TEST NUNGER OFF OF THE STACK 


; 

CL 

;yHAS AN ERROR OCC 

it ZERRORS FOR THIS TEST OCCURRED? 











RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(732) O1-0CT-76 10:50 PAGE 134 
OZREKB.P11 


SCOPE HANDLER ROUTINE SEO 0167 
7129 030666 032777 O01000 150244 BiT #81703, JSWR ;;LOOP_ON ERROR? 
7130 030874 001404 BEQ 4g NO 
1 7% 013737 OO1110 O01106 7S: HOV SLPERR, SLPADR _ }}SET LOOP ADDRESS TO LAST SCOPE 
71 1 001103 ug: CLRB = SERFLG - ssZERO THE ERROR FLAG 
7134 030712 005037 O0l1262 CLR STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
7135 030716 900415 5R 1$ :tESCAPE TO THE NEXT TEST 
7136 030720 032777 OO4000 150212 3: BIT #81711, aSWR :: INHIBIT ITERATIONS? 
7137 030726 O01011 BNE 1$ ::BR IF YES 
7138 030730 005737 001304 TST $PASS ::IF FIRST PASS OF PROGRAM 
71 030734 01406 BEQ 1$ 2 INHIBIT ITERATIONS 
71 001104 INC SICNT : INCREMENT ITERATION COUNT 
7141 030742 023737 O01 001104 CMP STIMES,SICNT | 3:CHECK THE NUMBER OF ITERATIONS MADE 
7142 530760 902024 BGE SOVER ::BR IF MORE ITERATION REQUIRED 
7143 012737 000001 O01104 1S: MOV «$1. SICNT ::REINITIALIZE THE ITERATION COUNTER 
7144 030760 913737 031036 001262 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
714S 030766 105237 001102 SSVLAD: INCB  $TSTNM ::COUNT TEST NUMBERS 
714% 030772 113737 O01102 001302 MOVB § §TSTNM,STESTN ::SET TEST NUMBER IN APT MAILBOX 
7147 031000 011637 901106 MOV (SP), SLPADR ::SAVE SCOPE LOOP ADDRESS 
7148 031004 011637 001110 MOV (SP)’ SLPERR ::SAVE ERROR LOOP ADDRESS 
7149 031010 005037 001264 CLR SCAPE ?:CLEAR THE ESCAPE FROM ERROR ADDRESS 
7150 031014 112737 000001 001115 MOVB #1, SERMAX *: ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
7151 031028 0:!3777 001102 iS0112 SOVER: MOV STSTNM, IDISPLAY ;:DISPLAY TEST NUMBE 
7152 O31 013716 OO1106 MOV SLPADR; (SP) :?PUDGE RE ADDRESS 
7153 031034 o00002 RTI + FIXES PS 
7154 031036 003720 SMXCNT: 2000. ::MAX. NUMBER OF ITERATIONS 
7155 03104) SSWOSTBL: 
7155 031040 003100 “WORD TSTi+2 s STARTING ADDRESS OF TEST 1 
7157 O31042 003224 "WORD  TST2+e2 *:STARTING ADDRESS OF TEST 2 
7158 031044 003320 “WORD  TST3te ::STARTING ADDRESS OF TEST 3 
7159 031046 004352 "WORD TST4+2 *:STARTING ADDRESS OF TEST 4 
7160 031950 oo4454 "WORD  TSTS+2 STARTING ADDRESS OF TEST S 
7161 031052 004632 "WORD TSTbte :STARTING ADDRESS OF TEST 6 
| 7162 031054 004760 “WORD TST7+e *: STARTING ADDRESS OF TEST 7 
7163 031056 o0S064 WORD TST10+2 : STARTING SS OF TEST 10 
| 7164 051060 006010 TSTlit2 2 STARTING SS OF TEST li 
7165 031062 006126 WORD TST12+42 *:STARTING ADDRESS OF TEST le 
| 7165 031064 006236 WORD  TST13+e 2: STARTING RODRESS OF TEST 13 
7167 031066 006500 "WORD TST14¢2 STARTING ADDRESS OF TEST 14 
7168 931070 OO6632 TST1S+2 *:STARTING ADDRESS OF TEST 1S 
7169 031072 007036 WORD TSTlb+e *: STARTING ADORESS OF TEST 16 
7170 031074 007226 TST17+2 :STARTING ADDRESS OF TEST 17 
| 7173 031076 007350 RD TST20+2 s STARTING RODRESS OF TEST 20 
| 7172 031100 010136 WO TSTelte 2 :STARTING OF TEST el 
| 7173 031102 010526 WORD  TST2e+2 ::STARTING ADDRESS OF TEST 22 
| 7174 031104 010732 TSTe3+2 ::STARTING ADDRESS OF TEST 23 
7175 031106 011142 TSTeu+2 *: STARTING ADDRESS OF TEST 24 
7176 031119 011260 WORD  TST2S+2 *: STARTING ADDRESS OF TEST 25 
7177 O3llle O11404 TSTebte 2: STARTING ADDRESS OF TEST 26 
| 7178 031114 011554 WORD TST27+2 *: STARTING ADDRESS OF TEST 27 
| 7179 031116 011700 WORD TST30+¢2 *: STARTING ADDRESS OF TEST 30 
| 7180 031120 Ol2162 TST31+2 :: STARTING SS OF TEST 31 
: 7181 O31 tee 012416 TST32+2 :: STARTING SS OF TEST 32 
| 7182 031124 O12604 WORD TST3a+¢2 :: STARTING ADDRESS OF TEST 33 
| 7183 031126 013034 WORD  TST34+2 *: STARTING ADDRESS OF TEST 34 
| 7184 031130 013222 TST3S+2 STARTING ADDRESS OF TEST 35 
| 
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SCOPE HANDLER ROUTINE SEG 0168 
7185 031132 013446 .WORD TST36+2 s;STARTING ADDRESS OF TEST 36 
7186 O31134 O1 -WORD TST37+2 STARTING ADDRESS OF TEST 37 
71 1136 O14 eb WOR ToTHO+ s TARTING ADDRESS OF TEST 40 
71 1140 014222 “WORD TST41+ »:STARTING ADDRESS OF TEST 41 
7189 O31142 014274 -WORD TST42+2 *:STORTING ADDRESS OF TEST Ye 
7190 O31144 014346 <WORD  TST43+2 >:STARTING ADDRESS OF TEST 42 
7191 031146 9314650 “WORD  TST44+2 »:STARTING ADDRESS OF TEST 44 
7192 O31150 O1S0S4 ,WORD  TST4S+2 »: STARTING ADDRESS OF TEST 45 
7193 O31 15¢ o1 "WORD  TST4b+e ::STARTING SS OF TEST 46 
7194 031154 o154 WORD TSTY7+2 *:STARTING ADDRESS OF TEST 47 
7195 031156 015702 Wo TSTSO+2 >: STARTING ADDRESS OF TEST SO 
719% 031160 016106 WORD TSTSi+2 *:STARTING ADDRESS OF TEST 51 
7197 O3ll62e 016232 2 TST52+2 ::STARTING ADDRESS OF TEST 52 
7198 O31164 016256 Wo TSTS3+2 ::STARTING ADDRESS OF TEST 53 
7199 O31166 O16Sfe WORD  TSTS4+2 >: STARTING ADDRESS OF TEST SY 
7200 031170 O16625 “WORD  TSTSS+2 ::STARTING ADDRESS OF TEST 55 
7201 031172 016752 ORD TSTSb+2 >:STARTING ADDRESS OF TEST 56 
7202 031174 017216 WORD TS157+2 -: STARTING ADDRESS OF TEST 57 
7203 031176 017070 WORD TST&O+2 ::STARTING ADDRESS OF TEST 60 
7204 031200 017340 WORD TSTbl+e >: STARTING ADDRESS OF TEST 61 
7205 O31e02 017514 WORD TSTbe+ ::STARTING ADDRESS OF TEST 62 
7206 031208 017744 WORD TSTbste 3s STARTING ADDRESS OF TEST 2 
$508 paisin peneee WORE Teter STR TORTING AbDRESS OF TEST ee 
7209 O3lel2 021026 WORD TSTb&+2 *:STARTING ADDRESS OF TEST 65 
7210 O31214 021132 WO TST67+2 >: STARTING ADDRESS OF TEST 67 
7ell O31216 O215S2 : TS5T70+2 ::STARTING ADDRESS OF TEST 70 
7ele 031220 022172 “WORD  TST71+2 >: STARTING ADDRESS OF TEST 71 
7213 O3l222 O2e302 “WORD  TST7e+2 ;;STARTING ADDRESS OF TEST 72 
tele aise Ossie WORD TeTpae8 STARTING ADDRESS OF TEST 74 
rete 1558 peepee “WORD TST75+ + OTARTING apoReee ar Teer 75 
7217 O31232 024274 “WORD  TST76+2 >:STARTING ADDRESS OF TEST 76 
7218 031234 O243S4 “WORD  1S177+2 ;:STARTING ADDRESS OF TEST 77 
7219 031236 024510 “WORD TST100+2 s;STARTING ADDRESS OF TEST 100 
7220 240 O24 “WORD  TST1Oi+2 >:STARTING ADDRESS OF TEST 101 
7221 O3le42 Oesdb2 “WORD TST102+2 ::STARTING ADDRESS OF TEST 102 
7222 031244 025406 ‘WORD  TST103+2 *: STARTING ADDRESS OF TEST 103 
7ee3 03124 026132 “WORD TST104+2 >:STARTING ADDRESS OF TEST 104 
7224 031250 ODebe7e2 “WORD  TS5T10S+2 >:STARTING ADDRESS OF TEST 105 
7225 O31252 Oeb442 WORD  TSTI0b+2 >:STARTING ADDRESS OF TEST 106 
7226 031 4 O2661 : TST107+2 ::STARTI RESS EST 107 
7227 031256 02731 “WORD  TST110+2 *: STARTING ADDRESS OF TEST 110 | 
708 031260 030066 “WORD  S$EOP+2 ADDRESS OF END OF PASS 
7230 : .SBTTL APT COMMUNICATIONS ROUTINE 
7232 © © KEKAKRSALELHR AKA LE KALE A AAA AL ARE RA KAA KAA ALE RELA AAAS R ELA AA AAR REKEKE 
7233 031268 118737 000001 031526 $ATY1: MOVB  #1,SFFLG ::TO REPORT FATAL E | 
7234 031 112737 O00001 031 SATY3: MOVB  #1.SMFLG *:TO TYPE A MESSAGE | 
7235 031276 000403 BR SATYC | 
7e36 ee 112737 000001 031526 saTyi: MOVB  #1,SFFLG :;TO ONLY REPORT FATAL ERROR | 
7238 031306 010046 | MOV ——- RO, -( SP) ;;PUSH RO ON STACK | 
7239 031310 010145 MOV R1.-(SP) *:PUSH R1_ON STACK | 
7240 031312 105737 031524 TSTB = SMFLG :SHOULD TYPE A MESSAGE? | 









oeue 1320 22737 000001 
e545 Oate6 01031 
Ce, ise th 4 000100 
oeue Gaiaae o17e0e 900004 
7247 rea 962766 000002 
7248 13S2 005737 001276 
7243 031356 001375 
7eS0 031360 010037 001312 
7 p21 368 057, 
7 1366 13 
7253 031370 163700 001312 
7254 031374 
7eSS 031376 O1 001314 
7eS& 031402 012737 O00004 
7257 031410 O0041 
7e58 O314le Ol oooc04 
ree0 baluee BESTue LTTTTE 
oeeT Daiuse Boars? Adiise 
7ebe 031436 000000 
7e63 031440 
7264 O31440 105727 031526 
7e6S O31444 O01416 
7eb& ~=O31446 005737 O01316 
7267 O314S2 001413 
7268 031454 3? 001276 
72639 931460 001375 
7270 031462 017637 oo0004 
7e71 021470 062766 900002 
7e7e 031476 005237 001276 
7e73 031502 105037 031526 
7e74 O31506 105037 031525 
7e7S O315le 105937 031524 
7e76 031516 012601 
7277 031520 012600 
7278 031522 07 
7279 ~031524 000 
7280 031525 000 
7281 031526 
7282 031530 
7283 0002 
7284 
7285 000100 
7286 000040 
7287 

| 7288 
7289 

| 7290 

| 7e9] 
7232 
7233 
7294 

| 7235 ‘ 

| 
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001316 
001317 


oo0c004 
1S: 


es: 


001276 


031436 3: 
000004 


001300 
000004 


12S: 


BEQ =} 
gee BAPTENV, SENV 
BITB #APTSPOOL , SENVM 
MOV 34(SP) RO 

(SP) 


ADD #24 
TST SMSGTYPE 


BNE 1$ 

MOV RO, SMSGAD 
TSTB = (RO) + 

BNE rh} 

SUB S$MSGAD, RO 
ASR RO 


MOV RO, SMSGLGT 
MOV #4, » SMSGTYPE 


BR 
MOV 34(SP) _ 
ADD 


(SP) 
MOV aria -(SP) 
SR FC, STYPE 


TSTB SFFLG 
BEQ 12S 
TST SENV 
BEQ 


125 
TST SNSGTYPE 
BNE 
MOV d4(SP), SFATAL 
ADD #2,4(S5P) 
INC SiCI PE 


2 
@ 


APT =040 
-SBTTL ERROR HANDLER ROUTINE 


5 RHEE HARRAH ERA E EK EEE EEE REEL REEL REEL ERE E EEE EERE REE ERE 
tATHTS THe ERO He EEN anes ERROR FLAG AND THE ERROR COUNT, 


3% TO TYPERR ON ERRO 
$I SHIT ore PROVIDED BY THIS ROUTINE ARE: 


;*SW13=1 INHIBIT teen TYPEOUTS 


;*SW10=1 


BELL ON 
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SEQ 0169 





;I1F NOT: BR 
H OPERATING, U UNDER APT? 
$ SHOULD SPOOL MESSAGES? 


*: IF NOT: 
*:GET MES GE ADDR. 
UMP RETURN ADDR. 
;3S6E IF ‘bore W/ LAST XMISSION? 
IF NOT: WAIT 
::PUT ADDR IN MAILBOX 
?:FIND END OF MESSAGE 


:;SUB START OF MESSAGE 
::GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG 


;;PUT MSG ADDR IN JSR LINKAGE 
ag os 


: BUM RODRESS 
;;PUSH 155776 ONS 
:CALL TYPE Racno” 













$s SHOULD REPORT FATAL ERROR? 
3 | RUNNING UNDER APT? 

IF NOT: BR 
i EFINISHED LAST MESSAGE? 

*IF NOT: WAIT 





tIGET ERROR # 
BUMP_RETURN ADDR. 
si TEb abt TO TAKE ERROR 
;;CLEAR FATAL FLAG 










F 
iS BOp STACK iNTO Rl 
73POP STACK INTO RO 


;RETUR 
:;MESSG. FLAG 


;;LOG FLAG 
;3PATAL FLAG 


THE ADDRESS OF THE ERROR CALL 











ee eee 
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any 


at At 
8 


> 0 ~ 0 b< p< §- < & -< 9-2 9-2 pe 


RES oRRS 


SSSSSSSBS8 


Set 
00 NICU .£ GITUe-(> 


SGSGB0GK0 SSSSSiSSSSSSssssns Bo 


2 bs On 0s 8 he he he hee beh 2 ne ban be Fe b= =e 2 b= be Oe B= ho 2 0 


RASS P RT Sa ase aR S ERE ROR NNRUERES 








ESROR HANDLES ROUTINE : SEO 0170 
: #840951 LOOP ON ERROR ~ Ae 
Le ERROR N ; ;ERRORSEMT AND NeERROR ITEM NUMBER 
j LBS SERROR: 
104407! % CKSWR :; TEST FOR CHANGE IN SOFT-SuR 
S237 001103 7S: INCB = SERFLG :SET THE ERROR FLAG 
1775 7 BEG 7§ >:D0N'T LET THE FLAG GO TO ZERO 
013777 001102 147374 MOV STSTNM, IDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
832777 O0e000 147364 SIT 881710, aSWR 3 ON ERROR? 
etNoT 001 free Bees + ONG 
as ee 
s5e335 BBiiie 1S: INC SERTTL OO NT THE NUMBER OF ERPORS 
O11€37 001116 MOV (SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
1 001116 SUB 82, SERRPC 
1] 14731le 001114 MOVB @S$ERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
Gse772 147324 BIT #BIT13, oSWR ::SKIP TYPEOUT IF SET 
4 601055 SNE ::SKIP_TYPEOUTS 
021627 901002 C (SP), #1002 IF RETURN PC LESS THAN 1002 
, 101046 BHI 12$ IS ILLEGAL TRAP 
;;PROCESS UNEXPECTED TRAP OR INTERRUP 
624 016637 000004 001116 MOV 4(SP). SE’ 33GET PC AT TIME OF FALSE TRAP 
be 162737 00002 OD1116 Sus #2, SERRPC ::ADJUST PC 
104401 031704 TYPE 165 :: TYPE HEADER 
644 01374 OO1116 MOV SERRPC,-(SP)  ::SAVE SERRPC FOR TYPEOUT 
650 104402 TYPOC °:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
652 104401 031712 TYPE 11 
B58 ibe71 po0004 SUB 4. (SP) 3;GET FALSE TRAP VECTOR ADDR 
ll 001116 MOV (SP). SERRPC 
B66 01 001116 MOV SERRPC,-(SP) § ;;SAVE SERRPC FOR TYPEOUT 
b7e 1 TYPOC 2:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
674 104401 001273 TYPE SCRLF 
70g CHP {SP i+, (SP)+ ;;POP FALSE TRAP VECTOR PC3ADDR 
704 036503 O00040 105 -ASCIZ <200)'’PC= ’ 
712 047125 OS5410S 115 -ASCIZ ' UNEXPECTED TRAP TO ’ 
a 052103 o42105 
726 O40S22 020120 
734 047524 000040 
749 ae EVEN 
032052 JSR PC, TYPERR 3360 TO USER ERROR ROUTINE 
744 ret 001273 os Type  ,SCRLF 
528 122737 000001 O01316 CMPB ss SAPTENV,SENV =; ;RUNNING IN APT 
756 001007 BNE 2s NO, SKIP APT ERROR 
760 113737 001114 031772 MCVB © SITEMB, 215 SET ITEM NUMBER AS ERROR NUMBER 
76 004737 031300 ae JSR PC, SATYS ;:REPORT FATAL ERROR TO APT 
ae are 9 
774 228: oF 2s ;;APT ERROR LOOP 
147136 2s: TST SSHR *:HALT ON ERROR 
1 BPL >:SKIP IF CONTINUE 
HALT ::HALT ON ERROR! 
3; TEST FOR 


C 
147122 3S: BI 


mS 
x 


7383 
7354 


7369 


RoE PRere rR Thetis Cr ric SERE ERR 


RKE11 FUNCTIONAL CON 
DZREKB.Pil 


O3eCi6 001402 
032020 


ERROR HANDLER ROUTINE 


o3e080 Ooivbe 


O3eC32 
032036 


O3e089 
o3e0s0 


03e0S0 


on 


RRERE 
Ss 


= = = _ 
ALATA a 
SRBREBRBRBE 


py 1 
+4 


= 
a 
a) 


+ =| = 
ALATA 
itt 


a 
y 
bb 6 2 bb 2 be ho he hb he bo a ho Reb eb ee 


7 
a 
A 


PNIFREKLUSSE ESRVBRVBTSRINS 


4 
+ 


— 
a 
a 


ae 


= 


ORSR 
255 


aus 


=-88 
5 


Ge pas fe 
BRE 
r=4 


z 


Hes 


061110 
001264 


001264 
030152 


001273 


ococ+e 


gs 
Ss 
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4$ 338R IF NO 
MOV SLeERR (SP) ;;FUDGE RETURN FOR LOOPING 


4§: TST CAPE !:CHECK FOR AN ESCAPE ADDRESS 
BEG 33BR IF NONE 

- MOV SESCAPE,(SP)  }:FUDGE RETURN ADDRESS FOR ESCAPE 
OM SSENDAD,a842 ;;ACT-11 AUTO-ACCEPT? 
BNE 6$ + sBRANCH IF NO 

a HALT +3 YES 
RTI +» RETURN 

a: £EEEELEEERELEEESHEEEESEE EES EEE EEEEEEEEESEEEEEE ES EEE EESESE EEE SES 

*SBTTL OUTINE 

-#ENTRY JSR PC, TYPERR 

[#RETURN RTS PC 


S ¥THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO CETERA WHICH 


PeENTRY TO DEFINE WHAT 
*#THE ERROR 


TO BE oe IT THEN USES THE “ERROR TABLE” (SERRTB 
NFORMATION IS TO BE REPORTED CONCERNING 


SOSSSESNSSSERUEEHESEREEATEREEEELEEEOLEELEAEERERLEEEEREEEEEEEEEE 


TYPERR: SA 
MOVB  STSTNM,STESTN  ;GET TEST NUMBER FOR REPORT 
BIC 8177400,STESTN CLEAR UNUSED BITS 
MOVB  SITEMB.RO ‘ENTER ERROR NUMBER 
BIC 8177400, RO *CLEAR UNUSED BIT 
DEC RO *FORM INDEX FOR ERROR TABLE 
ASL RO 
ASL RO 
ASL RO 
18: ADD #SERRTB,RO sFORM ADDRESS OF ERROR ENTRY 
MOV (RO)+, 28 -GET EM POINTER 
G 3$ ‘BRANCH IF THERE ISN’ 
YPE  ,SCRLF :TYPE CARRIAGE RETURN LINE FEED 
TYPE : TYPE ERROR ME EM 
2s: .WORD OO EM POINTER GOES 
3$: MOV (RO)+,4§ ;GET DH POINTER 
BEQ c$ “BRANCH IF THERE ISN’T ONE 
TYPE  ,SCRLF *TYPE CR-LF 
us "ORO 0 SON POINTER EOre HERE 
ss: MOV (RO)+, RL GET DT POINTER 
ae 86 RR RMDENT caifca 
HOV. (ROIs t Ra Fal wot DHS 
TYPE SCRLE , 
10S: move [tRO)+.R3 sGET 8 ST 
TSTB (RO)+ 
seo aS 
BRE oes 
118: . MOV a(R1)+, -(SP) 
* TYPOC 
DEC R3 












SEG 0171 






+ 


PERPEGRNADROORSS LRAT 


032350 
0323S4 


B 


ee ee eee Cae 
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OZREKB.P11 TYPE ERROR ROUTINE 


001403 
104401 


Ss on 
pe 


2 


Ps 


Eas 


ee 


coe 


005237 
000002 


005237 
ooocte 


s 


BEQ 13$ NO-BRANCH 
045534 128: TYPE 1 peace TYPE SEPARATORS 
001273 138: Pye SCRLF TYPE <CR><L 
TST (RO) CHECK IF NER HEADER AVAILABLE 
BEO 14§ "NO, DO NOT CHANGE INDENT 
COM RY ; CHANGE INDENT 
148: DEC Re “MORE DH’S? 
BLE 20$ :NO-BRANCH 
032256 1S$: MOV (RO)+, 18% GET NEXT DH POINTER 
BEQ 10$ IF 0 GET DATA 
TST RY j ENDEN NT? 
SEQ 17$ 
045534 TYPE  ,SPACE2 HVPE TNDENT INDENT 
17S: ‘TYPE TYPE DH 
i8$:  .WORD !DH POINTER GOES HERE 
001273 TYPE SCRLF 
SR los GET DATA 
20% RESREG 
001632 INC ERRCNT s INCREMENT THE ERROR COUNT 
Oi0000 146636 grr #SWl2, ISWR sCHECK If SHITCH 12 SET 
oo00024 001632 CMP 820. , ERRCNT *CHECK IF ERROR THRESHOLD EXCEEDED 
BHIS 255 ?NO, RETURN 
047771 TYPE  , ABORT TYPE “PROGRAM BGORTED BECAUSE 
oono4e2 TST 42 “CHECK IF CHAIN MODE 
: BEQ 228 NO, HALT PROCESSOR 
001100 MOV STACK, SP SINITIALIZE STACK 
000001 030112 MOV SEOPCT FORCE END OF PROGRAM 
030064 IMP sete" 
225: HALT 
258: /RTS PC 
“SBTTL/ NON-EXISTANT MEMORY AND INTERRUPT CHECK HANDLER 
# THIS ROUTINE SETS THE INTERRUPT FLAG AND DOES AN RTI 
2 THIS IS THE INDICATION TO ROUTINE CHECKING 
3 NON-EXIXTANT MEMORY THAT AN INTERRUPT DID OCCUR. 
001662 NEXINT: INe INTSET ;BUMP THE INTERRUPT COUNTER 
.SBTTL RK 1_ INTERRUPT 
: INTERRUPTS FROM THE RK611 ARE HANDLED BY THIS ROUTINE. ACTUAL 
+ PROCESSING AS A RESULT OF THE INTERRUPT IS LEFT TO THE MAIN 
* PROGRAM. THE JUST SETS A FLAG TO INDICATE THE 
* INTERRUPT OCCURRED. 
001662 INTHLR: INC INTSET *BUMP THE INTERRUPT FLAG 
RTI > RETURN. 


.SBTTL MEMORY PARITY ERROR TRAP 
tt ME OF FAILURE AND ABORT THE PROGRAN. 
020000 146546 PERHLR: BIT sBIT13,aSWR | ;TEST IF INHIBIT REPORT 
BNE 1S ;YES - SKIP 


HANDLER 
# MEMORY PARITY ieee TU, BE REPORTED BY THIS Roane - THE REPORT 
WILL INCLUDE THE I 





SEG 6172 





ARITY ERROR TRAP HANDLER SEG 0173 


032374 104401 050220 TYPE =, EN3 ;TYPE PARITY ERROR MESSAGE 

1O4Ge TYPOC VALU 
0127 030112 18: MOV al sE0re {FORCE END OF PROGRAM 

030410 O1e70& 001100 MOV astack ;CLEAN OFF STACK 

032414 000137 030064 IMP 


-SBTTL LINE CLOCK INTERRUPT HANDLER 
el THE LINE CLOCK INTERRUPT HANDLER WILL INCREMENT THE LCLKTK 
;* (LINE CLOCK TICK COUNTER) EACH TIME AN INTERRUPT OCCURS. 


001669 LCKHLR: INC LCLKTK ; INCREMENT CLOCK TICK COUNTER 
000200 147242 BiG BIT7,3KWLADD CLEAR MONITOR BIT 


ae E 
a 
I 


3 


PPPPIAF 
Jaa snd 
5 
yo 
4 
S 


. + SLRSRELERXSSEK¥SESESS A SY ERAS EAS LZ ULSLEE SES LE REA ER ELREEREAES EL ESEE 
-SBTTL OF N PRESENT TEST 

% 4 HIS ROUTINE CHECKS IF THE MEMORY PARITY OPTION AND T 

i LINE CLOCK ARE ON THE SYSTEM. Orcs GRE Ser te PRESENTS CLEARED 
a OTHERWISE, AND THE APPROPRIATE INTERRUPT VECTORS ARE SET UP 


4 


2 


MOV #4, R1 ;SET POINTER TO NEM VECTOR ADDRESS 


ru 
aes 


MOV (RL)+, -(SP) *STORE VECTOR CONTENTS 


900004 
000340 MOV #PR7’ (R1) ;SET PRIORITY 
032350 WNEXINT,-(R1) SET VECTOR TO NEM TEST HONDLER 
001662 CLR INTSET *CLEAR INTERRUPT COUNTER 

$1, INMCSR1 “LOAD CSR FOR BANK 2 


Sr 


[ole lololol an 
3s 


RaeanhenReasy 


3 


000001 147210 


ony 


001662 TST INTSET ;CHECK IF INTERRUPT OCCURRED 
NEM ON PARITY OPTION REFER. 





*BECAUSE OF 
00101 BNE 2s YES = SKIP PaRTTY SETUP 
se p00200 001656 BIS sPARBKO, OPTFLG *SET t Batty Op . TION FLAG 
Gizrep hee HOV Dave i Faeeh? LEFOLER MBGREGS 
012710 000340 < HOV aPRZ cro) ‘ee PRIORITY Y ae 
Nea revit 147142 — het I sre cat FOR UBANK ae 
Me 
001662 TST INTSET sTEST IN INTERRUPT OCCURRED 
38 iYES - SKIP SETUP 
001656 , sgeT 


3$: eee Tee COUNTER 
;SET a! NTER TO VECTOR 


Sea 
BBB 
ae 
eng 
Es 
ai 
2% 


uaa 2 ee EEE 


“f MOV 
tear HOV aL CKHLR, (RO)+ i] OF INTERRUPT HOLR 
0 000100 147064 HOY #BITb,aKWLADD LOAD KWL1-L FOR INTERRUPT ENABLE 
a : 
032516 001662 TST INTSET TEST IN NEM ON KWL1-P REFERENCE 
O326h22 001003 BNE 4g s THIS, BRANCH WILL BYPASS SET UP OF 
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OPTION PRESENT TEST AND SETUP SEG 0174 

7521 032624 052737 100000 901656 Bis BLCLKPR,OPTFLG ;SET CLOCK PRESENT FLAG 
ree 032632 012701 00006 4g: MOV #6, R1 "RESTORE OLD VECTOR 
7523 032636 605037  O01b6e CLR INTSET CLEAR INT FLAG 
7524 O32642 012611 MOV (SP)+, (RL) 
oe5 O32E44 012641 MOV (SP)+’=(R1) 

032646 109414 RESREG 
7527 032650 900207 RTS PC 
7523 «wer yy 9 eer 
7531 : THIS ROUTINE IS USED TO PROVIDE TIGHT SCOPE LOOPS. _ THE CALLER 


;* TS EXPECTED TO SET SLPERR TO THE START OF THE SCOPE LOO 


. 733 2% TO BE EXECUTED ON ERROR. 
532 032652 032777 O01000 146260 SCOPIS: BIT #SW9, ISWR :CHECK IF LOOP ON ERROR 
753& 032660 O01405 BEQ cS :NO, CONTINUE 
7537 O3eb62 105737 001103 TSTB  SERFLG ?CHECK IF ERROR OCCURRED 
7528 032665 001402 BEQ o$ 
7539 032670 013716 001110 HOV SLPERR, (SP) ;LOAD ERROR RETURN 
7540 032674 o00002 S$: RTI * RETURN 
7541 -SBTTL LINE CLOCK CALIBRATE 
7542 : # WAITS FOR A LINE CLOCK INTERRUPT TO CALIBRATE THE INTERRUPTS 
7543 2% TO A MEANT TIME VALUE. IN ADDITION IT PRESETS 
7544 + THE TIMCNT IF THERE IS NO LINE CLOCK. TIMCNT IS USED IN THE 
7545 * LINE CLOCK SIMULATOR. 
7547 032676 001660 CLKCAL: CLR LCLKTK sCLEAR TICK COUNTER 
7548 100000 001656 BIT SLCLKPR,OPTFLG TEST IF CLOCK PRESENT 
13 Bay 97 000020 O01654 aN #16. , TIMCNT ies - ae TIMCNT 
Feet seven paBMia oe tO SEND EXIT 
| 7552 O3e7e2 005737 001662 ~ 18: TST INTSET TEST IF INTERRUPT HAS OCCURRED © 
| 7553 032726 001 BNE 2s *YES- ABORT CALIBRATION 
| 7554 032730 005737 001660 TST LCLKTK WAIT FOR CLOCK TICK 
7555 030734 001772 BEQ i$ :NOT YET - LOOP 
| 7556 032736 005037 O01660 CLR LCLKTK ; COUNT 
| 7552 O3e74e o00e07 2s: RTS PC ; RETURN 
ee -SBTTL LINE CLOCK SIMULATION ROUTINE 
7560 + % THIS ROUTINE IS TO SIMULATE THE LINE CLOCK. TO 
7561 2% DO THIS T VALUE STORED IN NILCNT. IS USED AS. THE 
| 7562 + BASE AND SENT NUMBER OF TIMES A DECREMENT di 
| 7563 * AND BRANCH LOOP CAN BE IN HILL TSECOND. THE Le 
| 7564 2 TIMCNT VALUE IS DE IF IT REACHED O THE 
| 7565 * LINE CLOCK TICK COUNTER IS BUMPED. THEN THE TIMCNT 
| 7566 i IS RESET TO 16 (REPRESENTS 16 MILLISECONDS PER LINE CLOCK 
| 7567 i TICK). 
g + THUS THE ROUTINE RETURNS T AFTER 1M TUL SECOND 
| 7370 ii AND ND BUNPS THE ENE CLOCK Tok FOUN ube FOR EACH 16 CALLS. 
| 7572 ; . 
032744 010046 MYTIME: MOV RO, -(SP) ;SAVE RO 
| ete Ose746 013700 01652 MOV.  MILCNT,RO SET COUNT 
| 7575 005737 00! 1S: TST INTSET TEST IF INTERRUPT SET 
| 7576 032756 001012 BNE 2s YES = SKIP 
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ZREKB LINE CLOCK SIMULATION ROUTINE SES 0175 
7577 032760 i. oe DEC RO ;DECREMENT COUNT TO ZERO 
7578 O3e762 001373 BNE 1$ 
7579 032764 005337 001654 DEC TIMCNT sDECREMENT TIMCNT 
7580 032770 o01005 BNE 23 IF NOT - EXIT 
7581 032772 005237 001660 INC LCLKTK ‘ELSE TICK COUNTER 
032776 012737 000020 oo16S4 MOV #16. , TIMCNT *RESET TIME COUNT 
033004 912600 2s: MOV (SP)+,R0 -RESTORE RO 
033006 000207 RTS PC ; 


.SBTTL WAIT FOR INTERRUPT ROUTINE 
: THE ROUTINE IS ENTERED BY ONE OF FOURTEEN TRAP CALLS. THE CALL 
* SPECIFIES HOW MANY TICKS OF THE LINE CLOCK ARE TO ELAPSE 

x WHILE WAITING FOR INTERRUPT. IF INTERRUPT DOES NOT OCCUR 

2 IN THAT PERIOD OF TIME. AN ERROR MESSAGE IS PREPARED 

1 (BUT NOT PRINTED IN THE ROUTINEJAND THEN RETURNS TO THE 

t% LOCATION FOLLOWING THE CALL. IF INTERRUPT OCCURS THE 

«i RETURN IS BUMPED BY 2. NORMALLY AN ERROR CALL WILL 

2 BE IN THE LOCATION AFTER THE CALL TO INTERRUPT WAIT. 


BER RReBRe nae mAs ERR uaRAS OR 





033010 104413 IWATBS: SAVREG sENTRY FOR 8 SECOND WAIT 
032012 012700 000764 MOV #500. ,f0 
paa38 te IWATIM: BR REG sENTRY FOR 1 MIN WAIT 
012700 007246 MOV #3750. ,RO 
033026 000457 BR TSRT 
033030 io IWAT2S: SAVREG ;ENTRY FOR 2 SECOND WAIT 
per 00200 MOV $128. .RO 
033036 o004S2 BR WATSRT 
033040 Lowi IWATIS: SAVREG a a sENTRY FOR 1 SECOND WAIT ; 
heed eer — ER WATSRT 
033050 104413 IWATIS9: SAVREG sENTRY FOR 160 MS WAIT 
012700 oo0o12 MOV #10. RO 
7610 033056 oooH43 BR WATSRT 
| 7611 033060 10441 IWATLY4: SAVREG sENTRY FOR 144 NS WAIT 
7ole 0332062 012700 000011 MOV #9. .RO 
7613 033066 000437 BR WATSRT 
7614 033070 1044 IWAT128: SAVREG sENTRY FOR 128 MS WAIT ’ 
7615 0330 Mega 000010 MOV #8. .RO 
7616 000433 WATSRT 
7617 0633100 1o4s IWAT1I12: SAVREG SENTRY FOR 112 MS WAIT 
7618 033102 O1 000007 #7,R0 
| 7619 633106 000427 BR WATSRT 
| 7620 033110 104413 IWAT96: SAVREG sENTRY FOR 96 MS WAIT 
| 7621 O331i2 O1 000006 MOV #6, RO 
| 7622 O331i6 23 WATSRT 
7be3 033120 10441 IWATBO: SAVREG sENTRY FOR 80 KS WAIT 
Bie tee amos ay aS 
H 
| FeSe hee tye IWATE4: SAVREG SENTRY FOR 64 MS WAIT 
7627 033122 012700 oo00004 MOV #4, RO 
7g 03313 S004 BR WATSRT 
| 0331 1041 IWATYB: SAVREG sENTRY FOR 48 MS WAIT 
| 7630 o33142 01 oo0003 MOV #3, RO 
| 7631 033146 000407 TSRT 
| 7632 033150 104413 IWAT32: SAVREG sENTRY FOR 32 MS WAIT 


See ee ee geen age eee - 


FUNCTIONAL © 
Ws 
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IT FOR INTERRUPT ROUTINE 
oooc0e2 MOV #2,R0 
BR WOTSRT 
104413 IWATI6: SAVREG sENTRY FOR 16 MS WAIT 
012700 909001 MOV #1, RO 
Ole746 oOc0000 WATSRT: MOV #PRO, -(SP) sLOAD PRIORITY O ON STACK 
012746 MOV #5$, -(SP) ‘LOAD ADDRESS 
o00ed2 RTI 
012737 00020 oo1654 SS: MOV #16. , TIMCNT ;PRESET TIME COUNTER 
ona? 032676 ISR PC, CLKCAL *GO CALIBRATE THE CLOCK 
001662 1S: ier INTSET iTEST IF INTERRUPT OCCURRED 
032737 100000 OO1&S SIT SLCLKPR,OPTFLG TEST FP hutd-L AVAILABLE 
BNE 2s YES = SKIP 
032744 ISR PC, MYTIME ‘ELSE CALL SIMULATOR 
023700 O01660 2S: CMP LCLKTK, RO :TEST IF ENOUGH TICKS COUNTED 
BLO 1s *NO = LOOP 
TGETRK “ELSE GET 611 REGS 
901540 MOV T.CS1.R1 :PUT CSI IN Ri- STRIP ALL BUT 
177741 BIC biera Ri *COMMAND CODE: INDEX INTO TABLE 
001372 MOV CMNDLB(R1),DH2N :AND SELECT TO IDENTIFY OPERATION 
001370 MOV *MESSAGE (NO INTERRUPT OR INTERRUPT LATE) 
1302 MOV STESTN, RO *GET NUMBER OF PRESENT TEST 
ASL ‘SHIFT FOR INDEX 
031040 001264 MOV SSWOSTB(RO),SESCAPE -LOAD ESCAPE TO ABORT TESTS 
o000d2 001264 Sus #2, SESCAPE sBUT 60 TO NEXT SCOPE CALL 
ooooo2 3S: ADD #2, (SP) ;BUMP RETURN AROUND ERROR 
4g: RESREG RESTORE REGS 
RTI * RETURN 
.SBTTL “L™ REGISTER LOADING ROUTINE 
i TERS FOLLOWING THE CALL TRANSFERRED INTO 
& THE "L” REGISTERS L.CSI-L.DCYL. L.MRI IS NOT 
* LOADED IN THIS MANNER SINCE IT IS NOT COMMONLY LOADED 
ii FOR AN OPERATION. L.CS2 IS LOADED FROM DRVNUM. 
3 CALL: JSR R4, LRLOAD 
3% WORD COUNT 
* BUS ADDRES 
2 BYTE CTOR ADDRESS 
* "BYTE TRACK ADDRESS 
I CYLINDER 
LRLOAD: 
010046 MOV RO,-(SP) ;:PUSH RO ON ST 
O10} 46 MOV Rl, -( >:PUSH R1_ ON STACK 
12701 001600 MOV #L:CS1,R1 “GET ADDRESS OF L REGS 
012700 o00004 MOV #4. RO *PRESET COUNT 
012421 1S: MOV (R4)+, (RL)+ *MOVE FIRST FOUR WORDS INTO “L” REGS 
niietas Be OC othe Hie 
013721 001626 MOV DRVNUM,(R1)+  ;LOAD DRIVE 
005721 TST (R1)+ “BUMP PAST ASOF 
012411 MOV (R4)+, (RL) *LOAD DCYL 
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Pll —™L" REGISTER LOADING ROUTINE 
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= 90 pe po fas pe fw 


Geen 


06270 
011011 


SSae 


QOoo000oO 
= 
ue 


sf 


ees 





O1-OCT-76 10:50 PAGE 144 


(SP}+,R1 »:POP STACK INTO R1 
(SP)+, "RO POP STACK INTO RO 
L080 afkblL F FOR BOP PERATION 
STORAGE IS TRANSFERRED TO THE KSI REGISTER. 
is TS LEME dane nT GssaigS CR 
D BE I hi GO BIT I E 
INT “CLEAR INTERRUPT FLAG. 
RO, ~(3P) :STORE REGISTER 
#L: WC, RO ;GET ADDRESS OF SETUP STORAGE WC 
R2,R1 GET BASE ADDRESS 
Ht cs {Cat toe caine 
(RO)+, (R1)+ “LOAD BUS ADDRESS 
(ROS (RL) «= ttoab eas ee 
#6, R1’ *BUMP R1 TO ASOF 
(RO)+, (R1)+ : OFFSET 
(RO)+, (R1)+ ;LOAD CYLINDER 
eR i UME Rl 1 MRI 
L.cSi, (Re) t 
(SP) + RL LORD REGISTER 
, ; RETURN 
RK611 REGISTERS 
HE RK611 REGISTERS ARE STORED IN THE TEST TABLE T 
ITH THE EXCEPTION OF THE DATA BUFFER WHICH IS NOT STORED IN 
RO, - (SP) ;STORE REGISTERS TO BE USED 
R3,-(S5P) 
#T.CS1,RO ;SET POINTER TO TEST TABLE 
R2. Rl :SET POINTER TO RKb11 BASE 
#10. ,R3 T COUNT FOR 1ST 10 REGS 
(R134, (ROD ORE RKCS1 THROUGH RKSPAR 
1$ 
#2,R1 ;BUMP POINTER PAST RKDB 
(RO)+ ‘BUMP POINTER PAST T.RKDB . 
#4.R3 :SET COUNT FOR LAST 5 REGS: 
(R14, (RO)+ STORE RKMRL THROUTH RKNR3 
Bs 
(3P +, 89 sRESTORE REGISTERS 
v (SP)+,RO arent 
i COUNTER IN A ‘ 
BITS MUST BE COUNTED IS PLACED ON THE STACK 
BY THE CALLING ROUTINE. THE NUMBER OF BITS FOUND IN THE WORD 


SEQ 0177 












at 





7747 
aa 





033644 
033646 


RK611 en re DIAGNOSTIC 
DZREKB.P 


STORE RK611 REGISTERS 


016637 000002 001256 
001260 
000021 


g 


006037 001256 


US .3U. 


001373 
012603 
013766 001260 


000204 
005237 001260 
000766 


Bas 


000082 


000400 000026 
ovo4co 000026 


cistices 22) 


104413 
032737 100000 001656 
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BITCNT: 


1$: ROR 
BCS 
es: DEC 
BNE 
MOV 
MOV 
RTS 
3$: INC 
BR 
SBTTL 


$% CLOCKED AND THE SECOND BYTE CONTAINS THE 
+ CLOCK TRANSITIONS(PARTIAL PHASES) TO BE DONE. 
MCLOCK: 
MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV Ri’ -(5P) PUSH R1_ON STACK 
MOVB (R4)+,RO :GET NUMBER OF CONTROLLER PHASE {fODRESSES 
MOVB = (R4)+,R1 *GET PARTIAL PHASE ADDRESS COUN 
ASL RO sMULTIPLY PHASE ADDRESS COUNT BY 4 
ADD R1,RO : N PARTIALS 
1S: BIS #hCLK, RKMR1(R2) ieET cLogk 
BIC #MCLK;}RKMKI(Re) ;CLEAR 
DEC RO SOECREMENT COUNT 
BNE 1$ He NOT ZERO 
MOV (SP)+,R1 *:POP STACK INTO Rl 
HOV (SP)+,RO *:POP STACK INTO RO 
.SBTTL READ AND SORT HEADERS 
i THE HEADERS IN THE CYLINDER AND TRACK SPECIFIED BY 
* THE FI N THE “L" REGISTE! READ AND STORED IN 
2 AS R. R CHECKED IN THE 
+ READ HEADER OPERATION AND DATA LATE IS CHECKED AFTER ¢ 
ii EACH READ OF THE DATA BUFFER. 
3% CALL: JSR RY ROSTHD 
+ TCHK ;RETURN POINT IF CERR IN READ HOR 
2% ERROR 4 ;0RS, 6, 7 
* ERROR ;RETURN IF DATA LATE IN DB UNLOAD 
= RROR RETURN IF TO SLOW OR 
+i IF HOR O NOT FOUND 
RDSTHD: SAVREG 
BIT #LCLKPR,OPTFLG ;TEST IF CLOCK PRESENT 
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3% ARE PASSED BACK ON THE STACK. 
sm) _— 


Site gl 31086 


now WORD. 
3$ WAS BIT SHIFTED OUT A 1? 
R3 *NO = DEC COUNT 

1$ ;LOOP IF NOT ZERO 

(SP)+,R3 *REST 

STHPL?,e(SF) et COUNT OF BITS ON STACK 
$TMP17 BUMP COUNT 

2$ LOOP 


MAINTENANCE CLOCK ROUTINE 
THE PARAMETERS 


PHASES ADDRESSES THE CALLING ROUTINE 
THROUGH 










;GET WORD WHOSE BITS ARE TO BE COUNTED 


SIMP16 FOR COUNTING 
;SET A SHIFT COUNTER 
CARRY 
















nee TO Mae ROUTINE 
CALL. THE 


ARE LOCATED IN THE 
FIRST BYTE CANTAINS T 


WANTS THE CONTROLLER 
NUMBER OF 
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001402 
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oo000 
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i bo pe bh 


tag ghey wee 


LER DIAGNOSTIC 
HEADERS 


SOR 


000010 


100000 
000100 
000037 


20S: 


001600 


1$: 


O016S4 2S: 


001370 
001372 


4§: 


001656 


145574 
cooode 5S: 
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20S SKIP 
JKWLADD ;RESET riteRsueT 
#2 PRESET FOR 26 SECTOR FORMAT 
aCFAT, L.CS1 is e4 gees MODE SET? 


5, RO af SHAN TO 24S CTOR MODE 
#IBUFF RI POINTER 19 Inel BUFFER 
RO,RS CTORS 
R1;R4 E UTE ADDRESS 
Re. R3 fe UP POINTER TO RKOB 
#RKDB R3 
DRVNU (R2) ;LOAD ORIVE 
L. DCYL; RKGETL L(R2)’ ;LOAD_ CYLINDER NUM 

, RKDAC sLOAD TRACK AND SECTOR 
816. , TIMCNT ;SET TIME COUNTER 
INTSET :CLEAR INTERRUPT FLAG 
LCLKTK ?CLEAR TICK COUNTER 
L.CS1,RKCS1(R2) ;LOAD COMMAND 
INTSET ;TEST IF INT OCCURRED 
4 YES = SKIP 
PC, MYTIME ‘WAIT 1 MS 
LCLKTK ; HAVE WE WAITED 16 MS? 
3$ :NO = LOOP ON WAIT 
#6, 6(SP) ;SET RETURN FOR TO SLOW 

GET RK REGS 


#EM4, EMON *LOAD MESSAGE “TO SLOW/NOT COMPLETE™ 
ROPERCH, DHEN $0 COMMAND “READ HEADER” FOR REPORT 


RKCS1 (Re) ; TEST FOR CONTROLLER ERROR 
115 ;YES - SKIP 


(R3), (R4)+ ;STORE HEADERS 
(R3), (R4)+ 
(R3), (R4)+ 


RKCS2(Re) ; TEST IF DATA LATE 
8$ ;YES - SKIP 


RO sDEC SECTOR COUNT 
es sIF NOT ZERO - LOOP 


#LCLKPR,OPTFLG ;TEST IF CLOCK PRESENT 
NO ~ SKIP 


ays axa. ROD SET INTERRUPT ENABLE 
; HEADER ree OF BUFF=HEAD 0? 


;YES = SKI 
sELSE MOV THIS HEADER TO BOTTOM 


; TEST FO INSURE HEAD O IS FOUND 
sIF ALL HEADERS NOT CHECKED - LOOP 
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READ AND SORT HEADERS SEG 0180 


7887 O34lee 012737 053020 9001370 MOV #ENS6, EMCN ;ELSE “HEADER O NCT FOUND” MESSAGE 
7858 034130 005037 O01372.. ~ CLR DHeN 
as 034134 000421 BR 9S ; SKIP 
opps RM be p16 708 OS6446 BS: MOV #IBUFF RO ;GET TOP OF IBUFF 
14 lel $: MOV (R1)+, (RO)+ :MOVE HEADERS SO THEY START AT TOP OF IBUFF 
7863 O34144 Jleled MOV (R1)+, (RO)+ 
7864 146 O12120 MOV (R1)+, (RO)+ 
7865 150 Oe CMP RO, RY’ ;ALL HEADERS MOVED? 
7866 7$ 3NO - LOOP 


7868 O34154 062766 000010 00006 ADD #10,6(SP) ;SET UP FOR GOOD RETURN 
034162 BR 11S 


7870 

787 eas piers? 051303 001500 8: MOV #EMDLT, EM13N ;"DATA LATE SET RESULT OF READ DB” 

78 172 012737 OS3431 OS5544 MOV #EMROB; FOLIA 

7873 200 000004 O0000&6 95: ADD #4, 6(SP) ‘eet ERROR RETURN 

7874 206 104420 TGETRK T GS 

7875 erste 013700 901302 108: reg STESTN,RO iSrTrTeO NUMBER 

res el6 blebs? 031040 001264 MOV $SWOSTB(RO), sescheE SEP ESCAPE 

ae O3s4ee4 162737 000002 O0leb4 SUB #2, SESCAPE 310 nex SCOPE CALL 

7880 O34232 104414 118: RESREG 

7881 O34e34 000204 RTS RY 

7883 -SBTTL Af DRIVE STATUS 

7884 ;# THIS ROUTINE GETS ALL THE DRIVE STATUS AND PLACES IT_IN SREGIO 
7885 ;# THROUGH SREG17. Tes REGISTORS ARE FIRST CLEARED TO ALL_ONES AND 
7886 3% THEN IF ERROR OCCURS WHILE GETTING STATUS, THE 1’S ARE LEFT 
7887 iy IN THE REGISTERS. 





7889 3 CALL: JSR R4, GETORS 

7890 BR ERROR PROCESSING ERROR RETURN 

7891 + BR NO ERROR PROCESSING GOOD RETURN 

reas 034236 104413 GETDRS: SAVREG 

7894 034240 012762 100000 ooD000 MOV #CCLR,RKCS1(R2) ;CLEAR ANY OLD ERRORS LAYING AROUND 
7895 O34e% 012700 O01202 MOV uSR REGIO, RO PRESET ALL STATUS STORAGE TO 
78% O34252 012701 O00010 MOV FALL ONES 

7897 034256 Ole720 177777 1S: MOV ai7?777, (RO)+ 

7898 O34262 005301 DEC 

7300 Paice ean 1 BOY 1st RO ;SET POINTER TOREGI2 FOR AOL & BOL 
7901 piece aay MOV #1,.R1 — 


PRESET FOR PAIR ONE. 
C RROR SWITCH 





7902 034276 00S037 001230 ne CLR sth P3 ant sCLEAR Rae 

| 733 Baan ola7eg oubiD coon 2s: © — HOY CSP awosacne) jL 08D 

| 7905 034314 012762 000001 ooD000 MOV #BITO,RKCSI(R2) :00 SELECT 

7306 O34 01 000050 MOV #40. ,R3 WAIT FOR A FEW MICRO RECORDS TO 

3S: DEC R3 ;BIT SELECT FINISH 

| 7308 034330 001376 ieee: oe 

| 7308 100000 oo0000 BIT #CERR,RKCS1(R2) ;ANY ERROR SET AS A RESULT OF SELECT? 
7910 O34 00141 BEQ 4 *NO = SKIP 
7911 O34342 O32762 O24000 oD0000 sCTO!SPAR, RKCSI( RE); ;CHECK IF TIMEOUT OR PARITY ERROR 
7912 034350 001004 | BNE 8S sYES’ = SKIP 

| 

| 
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b1e739 
022020 


037400 000010 


000001 001230 


000034 
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100000 000000 
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SEQ 0181 

BiT #37400,RKCS2(R2) ; TEST FOR ERRORS: 

; NED! UPE! MDS! UFE! NEM! PGE 
BEQ NO_- SKIP 
MOV #1, STMP3 :SET ERROR FLAG 
nag (RO)+, (RO)+ ; BUMP TO LET THAT PAIR STAY ALL 1’S. 
MOV Recess? conte : STORE A WORD 
MOV RKMR3( STORE B WORD 
MOV #CCLR, Kes] (Ra) CLEAR ANY OLD ERROR IN CONTROLLER 
TST Rl :1S Rl A O (LAST TRANSFER, PAIR 0) 
BEQ B ;YES I 
INC ;ELSE BUMP TO NEXT PAIR 
CuP 24, sFAIR 3 gust STORED? 
a: 1 sELSE Pro PAIR O 
MOV #SREG10,RO :PRESET POINTER FOR PAIR 0 
BR $ G0 GET THEM 
RESREG sEXIT HERE 
TST STMP3 ANY ERROR IN STATUS GETTING 
BNE $ sYES - SKIP 
TST (R4)+ ELSE BUMP PART ERROR 
RTS R4 ; RETURN 


SUBSYSTEM INITIALIZE AND rT Ze STATE TEST 
THE SEY Et IS INITIALIZED WITH A SUBSYSTEM CLEAR 
COMMAND. CERR AND DI ARE MONITORED FOR A SHORT 
PEIROD OF TIME DURING WHICH THEY SHOULD BOTH RESET. 


IF THEY DO RESET, READY IS TESTED TO INSURE IF SETS. - 
IF ANY OF THESE THREE CONDITIONS ARE NOT MET AN APPROPRIATE 


ERROR MESSAGE IS PREPARED AND REPORTED WHEN THE ROUTINE 
RETURN TO THE CALL. IF EVERY THING IS goo, THE RETURN 
SKIPS OVER THE ERROR CALL AND TEST ABORT 


THE USUAL CALL TO THIS ROUTINE WILL BE FOLLOWED BY 
AN ERROR MESSAGE AND BRANCH TO_END OF TEST. THIS 
Fe One Be CnSe FAILURE TO INITIALIZE CORRECTLY IS FATAL TO 


MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) >:PUSH Ri ON STACK 

MOV #7°R1 jer CLEAR COUNT 

MOV #L°CS1.RO GET ADDRESS OF “L” REGS 

MOV #100, (RO)+ sPRESET Csi 

CLR } LEAR THE NEXT 

DEC 1 iSOUNT 0? 

BNE 7§ =NO = LOOP . 
MOV #SCLR,RKCS2(R2) ;CLEAR SUBSYSTEM 

MOV #10. $TMPO *SET A COUNTER 

MOV RKCSI CRe) T.CS1 ;GET CS1 

BIT #CERR!DI,?.CS1 ;TEST IF ERROR OR DI SET 

BEQ "NO = SKIP TO READY TEST 

DEC $TMPO pry DECREMENT COUNTER 

BNE is AND LOOP 
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7969 O34S4O0 032737 100000 oD1S4O BiT #CERR,T.CS1 sTEST - IS IT CERR STILL SET 
7370 ou6 1404 BEQ $ !NO__= SKIP TO DI MESSAGE 
Fare #50 7 050363 001400 HOV HENS, ENN *MESSAGE (SUBSYS CLR NOT RESET ERROR) 
737 £60 012737 OS0427 O01400 3S: MOV #EMG , EM3N sMESSAGE (SUBSYS CLEAR NOT RESET DI) 
7974 O34566 104420 4$: TGETRK - 
7975 034570 913700 001302 MOV STESTN, RO sGET PRESENT TEST NUMBER 
034574 006300 ASL HIFT FOR INDEX 
oae8 B34576 016037 031040 001264 MOV $SWOSTBL (RO), SESAPE :LOAD ESCAPE TO ABORT TEST 
7378 162737 000002 001264 SUB #2, SESCAPE ;SET TO NEXT SCOPE CALL 
7979 O34%6le 012601 MOV (SEs, R1 *;POP STACK INTO R1 
7980 034614 012600 MOV (SP)+'RO POP STACK INT 
7981 O34616 000414 SR -OSKIP TC EXIT 
7982 O34620 0320737 O00200 OO1S4O 2s: BIT #RDY,T.CS1 :TEST READY SET 
7983 034626 001004 BNE c$ :YES = GOOD EXIT 
7984 O34630 012737 osS0S08 01400 MOV 8EM7, EM3N “MESSAGE (SUBSYS CLR NOT SET READY) 
7985 000753 BR 4S 
7985 O34640 012601 S$: MOV (SP)+,R1 sRESTORE REGS 
7987 O34642 012600 MOV (SP)+’RO 
7988 O34644 062716 o0000e2 ADD #2, (SP) ;GO0D RETURN 
7383 034650 o00002 6S: RTI 
7991 .SBTTL WORD COUNT AT END OF OPERATION CHECK 
7392 % THIS ROUTINE COMPARES THE CONTENTS OF THE TEST STORAGE FOR 
7993 2% THE WORD COUNT AGAINST THE SUPPLIED VALUE. IF UNEQUAL, THE 
ee i ERROR FLAG (WCERR) IS SET IN GROUP 4 ERROR FLAGS tGRPUER) 
CALL: JSR R4, CHKWC 
| 79 x . WORD sEXPECTED WC VALUE 
2333 034652 012437 044720 CHKWC: MOV (R4)+, EXPWC ;STORE EXPECTED VALUE 
8001 O346S6 023737 oO44720 ocD1S42 CMP EXPWC, T.WC ; COMPARE 
8002 O34664 001405 BEQ 1$ “EQUAL - SKIP 
8003 O34666 052737 O00001 o44756 BIS #WCERR,GRPYER ;SET ERROR FLAG 
8004 034674 013737 O01542 044734 MOV T.WC, REALWC : STORE REAL WORD COUNT 
Bons 034702 o00204 1S: RTS R4 * RETURN 
| g007 .SBTTL BUS. ADDRESS AT END_OF OPERATION CHECK 
:% THIS ROUTINE COMPUTES THE EXPECTED BUS ADDRESS AT THE END OF 
8009 % A TRANSFER BY USING THE INITIAL BUS ADDRESS, ADDING IN THE 
8010 + x INITIAL WORD COUNT, AND SUBTRACTING ANY RESTDUAL WORD coun NT. 
8011 +" IF THIS COMPUTED BA DOES NOT EQUAL THE CONTENTS OF RKBA 
012 33 AN ERROR FLAG (BAERR) IS SET IN GROUP 4 ERROR FIELD (GRPYER) 
| ; : 
| goiy % IF BUS ADDRESS INCREMENT INHIBIT WAS SET, THE EXPECTED BUS 
| gis +" ADDRESS IS THE STARTING BUS ADDRESS. 
as ;*CALL: JSR R4, CHKBA 
| gois8 034704 010046 CHKBA: MOV RO, -(SP) 
| 8019 634706 O10146 MOV Rl, -(5P) 
| 8020 034710 010346 MOV -(SP) 
' 8021 034712 032737 oO00020 001610 BIT EAT. L.cse -TEST IF BAI SET 
| O22 034720 00140 BEQ 4g *NO = SKIP 
8023 034722 013737 O01604 oO447e4 MOV L.BA,EXPBA +STORE EXPECTED BA (SAME AS STARTING BA) 
8024 034730 OO0441 BR 3$ 


SEO 0182 
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Pil CYLINDER, TRACK,SECTOR TEST AT END OF OPERATION SES 0184 
120 013700 01602 MUV L.WC,RO ;GET SPECIFIED WORD COUNT 

Bee 15y 005400 NEG RO ;NEGATE IT 

O3S1e6 01370: O01S4e MOV T.WC,RI :GET_END OF OPERATION WORD COUNT 

petse 001401 BEG 10$ ;1F ZERO - SKIP 
134 005491 NEG Rl ;NEGATE IT 7 

03S136 160100 108: SUB R1,RO ;COMPUTE ACTUAL WORDS TRANSFERRED 

035140 050u1 AR Ril FOR COUNTING 


CLR Ri ;CLE 

THE FOLLOWING CODE DETERMINES HOW MAY SECTORS OF DATA HAS BEEN 
TRANSFERRED IN THE OPERATION. ONCE IT HAS COMPUTED THAT, THE 
ENO OF OPERATION VALUES FOR THE CYLINDER, TRACK, AND SECTOR 
i CALCULATED. ave 


srerammamanss ¢ 


035142 922700 on0400 MP #400, RO 
035146 003004 SGT 2g 
035150 005201 INC Rl 
035152 162700 O00400 Sus #400, RO 
035156 000771 BR 1$ 
035160 005700 23: TST RO 
035162 001401 BEQ 3$ 
035164 905201 INC Ri 
8:60 AT THIS POINT R1 HAS A COUNT GF THE 
810} NUMBER OF FULL SECTOR TRANSFER + 1 IF A 
8102 PARTIAL SECTOR WAS TRANSFERRED 
8103 O3S166 012703 co0nz 4s MOV #25, R3 
' §10% 035172 032727 010000 oo1600 BIT SCFMT,L.CS1 
| 105 B3e505 001 BEQ 4u§ 
| B106 35202 O1 ooco24 MOV 824,R3 
8107. ; R3 HAS BEEN’SET UP WTH THE NUMBER 
8108 OF SECTORS IN A TRACK FOR THE FORMAT USED 
| 6109 013737 001614 o44726 «45 MOV L.DCYL,EXPCYL  ;GET STARTING VALUES FOR CYLINDER 
8110 035214 113704 001607 MOVE  L.DT,R4 : TRACK 
| B11) 035220 042704 177400 BIC  9177400,R4 
| Bile 035224 113705 001606 HOVE LDS RS SECTOR 
/ B14 p3es30 Boe sbe DEC Ri : sADJUST COUNT FOR ZERO DETECT 
| gle feesce Boers s Re OO THES ReKe SECTOR COUTN > 1 TRACK? 
B11? Gseswe DOlOL BNE 68" NO - SKIP 
| 8118 035244 005005 CLR RS "ELSE CLEAR SECTOR COUNT 
EE BES er cons BS mw Eto ge he coum» 1 cvencem 
| Biel rates BNE ee: =NO = chip 
| Ble 035256 RY iELSE CLEAR TRACK COUNT 
| 8123 035260 044726 Ine YL : YLINDER COUNT 
| §les &S: ¢ 1 *DEC 
gles 001 BNE cg : IF - EXIT 
| Ble 104 732 MOV RY, EXPTRK ST CTED TRACK 
| Ble? 035274 O1 MOV RS EXPSEC :ST CTED SECTOR (CYL ALREADY SLOW) 
Bice 035300 1560 (44726 CHP et sTEST IF CYLINDER OK 
'  §130 heart 10 O44756 BIS GRPYER :NO - SET ERROR FLAG 
HS es gg, Se Ba ee 
| Bl oo0020 O44756 BIS STRKERR,GRPYER NO - SET ERROR FLAG 
eH 120537 001546 QS: CMPB =séRS, T.DA sTES CTOR COUNT OK 
| B135 1 BEQ 9 “YES = SKIP 
| 8136 035340 fob? 000040 044756 BIS #SECERR,GRPYER USE ERROR FLAG 





ae een ere ee meme see et ees re ee oe cee oe ee eee 
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YES wr 


Gaara? 000070 o01ss2 be ADSERBIT, 1.05 TEST. ‘ape = IN DS 
zs 


Ata 

ft 

alta 
peers 








Len seer IE ne =r IN ER 


100000 —— s COMB EON SET? 
rege 044750 S ERNER,GRPIER ;SET FLAG IN GROUP 1 
ess ; SKIP 


a 
8 


CYLINDER, TRACK, SECTOR TEST AT END OF OPERATION SEO o1es 

8137 03534 012700 044734 9g: MOV #REALWC, RO 
9138 035352 013720 o0154e2 MOV T.WC, (RO)+ ;STORE REAL WORD COUNT 
§139 B35 13720 001544 MOV T.BA; (RO)+ ‘STORE REAL BUS ADDRESS 
8140 1 001560 MOV T.DCYL,(RO)+ :STORE REAL CYLINDER ADDRESS 
8141 9352 13710 001547 MOVB  T.DA+1, (RO) STORE REAL TRACK ADDRESS 
Bi42 paesoe need TST (RO}+ 
8143 035374 113710 ools46 MOVE —-T.DA, (RO) ;STORE REAL SECTOR ADDRESS 
8144 035400 104414 RESREG 
B46 o35402 ooc204 RTS RY 
8147 -SBTTL OPERATION CHECK ROUTINE 
£148 :% THIS IS WHERE ALL HARDWARE ERROR INDICATORS AND SOME SOFTWARE 
9149 3% ERRORS ARE CHECKED. THE GENERAL PROCEDURE FLOW IS AS FOLLOWS 
B50 2 # THE ROUTINE ec CALLED WITH A TRAP (TCHKOP). THe LOCATION 
8151 :# OLLOWING TRAP CALL WILL HAVE AN ERROR TRAP WHICH 
8152 + THE ILL BYPASS IF NO ERROR IS FOUND. IF AN 
nS it BatEabethne Si anne eemoe The OT iP 
B15s + BE THE NER FOR THe FoR? REGUTRED THIS 
8156 = ERROR. THE TRAP WILL BE MADE EITHER 45.6 
8157 ti 7, OR 10. REFER TO THE ITEM TABLE FOR A DESCRIPTION 
8158 3 OF THE FORMAT AND WHICH ERRORS ARE DISPLAYED IN WHAT 
bi53 :# FORMAT. 
B16 O44! CHKWE: SAVREG 
Bie> Peeube etic MOV (SP), RO GET POINTER TO ERROR WORDS 
Bie Gaeuiy pisos? persue MOV (RODE STII © STORE EXPECTED ERROR GROUP 1 
Bice faeuso pisea? borsue MOV CRODS°STNPID »=««TETORE EXPECTED ERROR GROUP 9 
B56 pasted 6100 MOV RO, (SP) >STORE RETURN 
816 01 177777 001250 MOV 8-1, STMP13 :SET FLAG - EXPECTED ERROR 
e168 035434 000403 BR CHKST 
8170 % 10441 CHKOP: SAVREG 
B17 heater seats 001250 CLR STMP13 ;RESET EXPECTED ERROR FLAG 
5135 o3s444 104420 CHKST: TGETRK ;GET 611 REGS IO TRAP 
B174 dsS¥i6 005037 044750 CLR GRPIER “CLEAR ERROR FLAGS 
Biz pyuzea R  GRP 
a Biaree ck GeteR squint pe 
8179 024000 001540 rT a, est IF ERROR SET IN CS1 
B18 177400 001550 BIT IT,T.CS2 ;TEST a ERROR SET IN CS2 
8183 

eia4 
He 

1 

Hl 

gies 

8190 

£191 

£192 


; CODE TO CHECK WORD COUNT, BUFFER ADDRESS, CYLINDER, TRACK, 





OPERATION CHECK ROUTINE SEQ 0186 


AND SECTOR AT THE END OF THE OPERATION. THIS IS DONE ONLY 
IF CERR NOT SET BY THE OPERATION. 


ALL OF THE ABOVE Site ahhh ARE CHECKED AND A BIT SET FOR 
EACH CHECK THAT FAILS. VER, ONLY ONE ERROR IS REPORTED. 
THE ORDER OF PRIORITY FOR REPORTING THE ERROR IS THE ORDER 
LISTED ABOVE. 

TST STMP13 ; TEST IF _— EXPECTED 


BBS oseor oe: M0 


J 

MOV ‘ sGET CS1 

gic #177741, RO 5 CHECK Ma OPERATION IS READ DATA, 
cn F #20,R0 WR TA, OR WRITE CHECK. IF 
C 


pmmmmeee 
BBSRRLG 


ERS 

: 

= 

& 

Eg Sereren 
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Gaeeen 
bless 002445 3$ NOT, SKIP ALL CHECKING IN GROUP 
8208 035602 022700 MP 830,R0 *FOUR 
8209 035605 03042 BGT 3$ : 
8210 035610 OO4437 oO34652 ISR RY, CHKWC CHECK WORD COUNT 
8211 035614 00000 .WORD OO EXPECTED WORD COUNT 
Bele 035616 oow3? 034708 ISR R4, CHKBA *CHECK BUS ADDRESSS 
821 Oo44 116 J5R RY’ CHKCTS CHECK CYL, TRACK, & SECTOR 
8214 035525 005737 044756 TST GRPYER “ANY GROUP’ 4 ERRORS? 
821 ieee 501430 BEQ 35 *NO = SKIP 
821 1 045074 osss24 MOV CMNDLB(RO),DFOLOA ;LOAD ADDRESS OF COMMAND ME 
B21 GssbHe 13700 044756 MOV GRPYER, RO ;PUT GROUP 4 ERROR FLAG IN RO 
8218 esa CLR RI *CLEAR Rl FOR INDEX COUNTER 
8219 O3S650 006200 1S: ASR RO :SHIFT FLAGS - FIRST ONE ON RIGHT IS ERROR TO 
103402 BCS 2s *BE REPORTED, REST ARE IGNORED 
8221 035654 005720 TST (RO)+ WHEN AN ERROR BIT IS FOUND 
Gece Ouse O00774 GR 1$ jGET THE ERROR MESSAGE ott 
16037 O44760 OO14SO 25: MOV GRPYNS(RO),EMLON’ ;WITH IT AND T 
8224 016037 O44720 001202 MOV EXPWC(RO), $REGIO :POINT TO MESSAGE. LOAD REGIO & 11 
2 oe 016037 O44734 001204 MOV REALWC(ROS, SREG11 iwTTH EXPECTED & IS VALUES 
a2 3 104414 RESREG sRESTORE REGIS 
8227 012776 000010 ooo0c0 MOV #10, 3(SP) *MAKE THE ERROR CALL POINT TO THE 
BODE Ses RTI *RIGHT TABLE & 
Sa sate ooone | RESREG #2, (SP) RETURN PAST ERROR 
ee eerie e 
eer rane AYE ; ‘RETURN 
; THE FOLLOWING CODE BUILDS THE GROUP 1,2, & 3 ERROR WORDS. 
: 1 4g: MOV ER,RO ;SET UP GENERAL REGISTER AS POINTER 
Pad sear Soisae MOV acai At RET 
012703 O01550 MOV #T.CS2.R3 *CS2 
8239 01 1552 MOV 87.05, R4 *DS 
Bev 01 1554 MOV #T.ER,RS :AND ER 
| Boy 051510 BIS (RS), (RO) sSET ALL BITS IN GRPIER THAT 
| Beg ;CORRESPOND TO ERROR BITS IN RKER 
| ge 042710 120701 BIC #ILFYECHIBSE!HVRC!OPI'DCK, (RO) ; CLEAR ALL THAT DON’T BELONG GRP 
Bee 0327 11 o20000 BT #SPAR, (R1) TEST IF SPAR SET 
| Bae heats 000001 BIS SSPARERR, (RO)  ;SET SPAR ERROR FLAG 





en tee ee a ee i ee OE ET eS EO 
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OPERATION CHECK ROUTINE SEG 0187 
8249 
Bes 035770 032714 000010 S$: BIT ¥ACLO, (RY) sTEST acto SET 
bese need heat 000100 BIS BACLOERR, (RO)  ;SET ACLO ERROR FLAG 
8254 036002 032714 000020. 6S: BIT sSPDLSS,(R4)  ;TEST SPEED LOSS SET 
8255 026006 901402 SEQ ? NO = 
8256 036010 052710 000200 BIS #SPDERR,(RO) § :SET SPEED LOSS ERROR FLAG 
aoe 036014 032714 o00040 73: BIT #DROT, (RY) sTEST IF DROT SET 
8259 036020 001402 BEQ NO = 
gees 8326922 963719 oonunn ers #OROTERR, (RO)  ;SET DROT ERROR FLAG 
aoe 036026 032711 100000 8S: BIT #CERR, (RI) sTEST CERR ITSELF SET 
8263 O3603se 001002 BNE 1 YES - SKIP 
8264 036034 032710 o20000 BIT SNCERWE,(RO) | :SET NO CERR WITH ERROR FLAG 
Bese = 036040 012700 044752 10$: MOV #GRPZER, RO ;SET POINTER TO GROUP 2 ERROR FLAGS 
8268 O36044 032715 000100 BIT BECH, (RS) ;TEST IF ECH SET 
8269 036050 001402 BEQ ll *NO = SKIP 
B70 036052 052710 000001 BIS #ECHERR,(RO) § ;SET ECH FLAG 
8272 036056 032715 100000 118: BIT #DCK, (RS) sTEST DCK SET 
8273 036062 001402 BEQ 12 =NO = SKIP 
8274 036064 052710 BIS SDCKERR, (RO) § ;SET DCK ERROR FLAG. 
aSee 036070 032712 o40000 128: BIT BWCE, (R3) sTEST WRITE CHECK ERROR 
aaa Bre (dOReRR.(RO) POET Wee BIT 

Bae 0361 fseig aurea 120: Bt #DLT, (R3) :TEST DATA LATE 
8280 036106 O01402 BEQ 1 *NO = SKIP 
036110 052710 oo0010 BIS #DLTERR, (RO) § ;SET DLT ERROR FLAG 
Bees 036114 032715 138: BIT 80PI, (RS) TEST OPI SET 
8284 036120 001402 BEQ 14S *NO = SKIP 
O26l22 052710 op0020 BIS #OPIERR,(RO)  § ;SET OPI ERROR FLAG 
ESee 036126 032715 oo0400 14S: BIT SHVRC, (RS) sTEST HVRC SET 
8288 036132 001402 BEQ 16 *NO = SKIP 
8289 036134 052710 oo0040 BIS SHVRCERR, (RO)  ;3SET HVRC FLAG 
SSat 036140 032715 16$: BIT #8SE, (RS) ;TEST BSE ERROR FLAG 
8292 036144 001402 BEQ 178 *NO = SKIP 
8293 (36146 052710 000100 BIS #BSERR, (RO) *SET BSE FLAG 
Bode 036152 012700 O44754 17S: MOV #GRP3ER, RO ;SET POINTER TO GROUP 3 FLAGS 
esa 036156 032713 010000 BIT #NED, (R3) sTEST NED SET 
e543 Gseied ose710 a: MET NED 

1 16 000001 SNEDERR,(RO)  § ;SET FLAG 
B30 ; : 036170 032711 004000 18$: BIT #CTO, (RI) sTEST CTO SET 
Fe Bette esata oooco2 Bie #CTOERR,(RO) ;SET c¥6 FLAG 





ee ee nee ene eee ame eee one MORIA Ce TLE 5 RN a QT eee ae asl 
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sapatall 


bendix bt mt tt et 
ODN U CWI 


SSG BRR RGERE RSG NOD SNES 


aa 
; 


8359 036350 


BOR RORSa eae 


000400 


19$: 


24s: 


@2e @ewe we ees eee we we 


ess: 


26S: 


27S: 


28S: 


BiT  wUFE,(R3) ;TEST UFE SET 
BEQ - SKIP 

BIS #UFERR,(RO) © SET UFE FLAG 

BIT HOS, (3) sTEST HOS SET 

BIS aMDSERR, (RO) SET NDE FLAG 

SIT PGE, (R3) ;TEST PGE SET 

BEQ 228 :NO_= SKIP 

BIS  SPGERR,(RO)  § ;SET PGE FLAG 

SIT —-#NEM, (R3) ;TEST NEM SET 

BEQ 3NO_- SKIP 

BIS | wsNEMERR,(RO) SET NEM FLAG 

BIT #UPE, (R3) ;TEST UPE SET 

BEQ = 24S :NO_- SKIP 

BIS  #UPERR,(RO) = ;SET UPE FLAG 

BIT  #ILF, (RS) sTEST ILF_ SET 

BEQ - SKIP 

Bis SILFERR, (RO) SET ILF FLAG. 

THE FOLLOWING CODE IS EXECUTED ONLY IF ERRORS WERE EXPECTED. 
THE FLAG IN STMP13 LP ie Gowen 

AN ERROR CTED AND OF THPLO, 


2 SPECIFY WH 


ARE COMPARED AGAINST 


Pil, B TEWie 
The Cont ie ENP aD 8, aa oe 


Leh BRD PET ee I eet 


TST 
BEQ 
MOV 


S Booasce 


ow 
a 
oaQ 


3 ote AN ERROR WAS EXPECTED 


it ‘eoress oF EXPECTED ERRORS 
;GET EXPECTED ERROR 


ime ‘igy’ eta“ 
ee "RECTED &D 
fie 


TED 
GccuRRED net Oo NOT _ OCCUR 
NOT EXPECTED 


SEG 0188 





RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(732) O1-OCT-76 10:50 PAGE 156 ; 
OZREKB. Pil OPERATION CHECK ROUTINE SEG 0189 


THE FOLLOWING CODE: 


A. DETERMINES WHICH FORMAT IS fe BE 
B. Rpeee T eg tae OF THE ASCIZ TEXT INTO THE SELECTED 


T 
C. COUNTS ie NUMBER OF THAT MUST BE REPORTED 
D. GETS DRIVE STATUS IF GROUP 1 ERROR. 


THE DECISION OF WHICH ERROR IS TO BE 


USED 
IS ON re ee GRO OR GROUPS) THAT HAVE 
F T. IF BIT Is IN GROUP 1,2, OR 3, GROUP 1 FORMAT (ERROR 4 OR S) 


WILL BE USED; ANY SET IN 2 0R 3, GROUP 2 LERROR 6) WILL BE USED; AND A 
FLAG SET INGROUP 3 ONLY, GROUP 3 {ERROR 7) 1 USED. 
THE FORMAT TO BE USED IN THE CONTROLLING FACTOR IN HOW THE 


we ee ee ee 


U 
ay SROUP ¥ Witt Be ae ONLY THE LOW ORDER BYTE 

Be OND ERROR FRAPCHICE BEAL TERED. THE SP WILL BE 

POINTING TO THE LOCATION THAT CONTAINS THE ERROR CALL TRAP. 
IF THE STATUS IS READ FROM THE DRIVE WITH NO PROBLEM 


SPatUs’ EanGae 12" USD. “EReon'e FNGLUDES A MANES Hessace 
RY 


VIS RRR ER RRRMiaa a ant ca 





8387 036352 005004 110$: ae ;CLEAR COUNTERS 
Bee papsee 1 001224 aie #STMP1,RO ;LOAD POINTERS FOR TEMPORARY STORAGE OF ADDRESS 
8290 036362 012701 001226 MOV #STMP2’R1 "WHERE ASCIZ ADDRESSES GO 
8391 036366 b1e703 MOV 8GPSUMF , R3 *POINTERS TO GROUP SUMMARY FLAGS 
8392 036372 01271 MOV #O0F007A; (RO) #§ ;PRESET FOR GRP3 ERR MESSAGE BUILD 
8393 S376 012711 901442 MOV 8DH7N, (R1) 
8394 013746 MOV GRP3ER,.-(SP)  ;GET GROUP 3 ERRORS, PUT ON STACK 
8395 036406 004437 033524 JSR R4, BITCNT :GO COUNT NUMBER AT ERRORS 
83% 12 0057 TST (SP) “ANY ERRORS? 
8397 14 001 BEQ 23S *NO - SKIP 
2398 16 061 ADD (SP) RS ADD IN ERROR TOTAL 
6399 036420 052713 000004 BIS #GRP3ST,(R3)  ;SET BIT TO INDICATE GROUP 3 ERROR 
B40 O26He4 29: ST (SP)+ CLEAR OFF STACK 

ES 001250 TST STMP13 ERROR EXPECTED 
8403 SsbH3e 00141 zis *NO = SKIP 
B44 4 Ol 001246 MOV TMP12,-(SP) PUT 3 NOT RECEIVED ERRORS ON STACK 
840S O36440 004437 ISR R4. BITCNT "COUNT NUMBER OF ERRORS. 
8405 O36444 005716 TST (SP) “WERE THERE ANY 
Bupa BSeNe8 pee7Ta Bre (aCe SPT GROUP 

13 OO0040 I #GP3NR, (R3) *SET GROUP 3 NOT RECEIVED ERROR FLAG 

B03 036454 061604 ADD (SP),R4 ADD COUNT TO TOTAL THESE 
8411 O26456 005726 30S: TST (SP)+ sCLEAR OFF STACK 
B412 013746 oO44752 315: Mov GRP2ER,-(SP)  3GET GROUP 2 ERRORS FOR COUNTING 
g413 004437 033524 JSR R4, BITC *COUNT BITS 
8414 005716 TST (SP) “ANY SET? 
8415 14 BEQ 323 "NO - SKIP. 
8416 036474 052713 BIS #GRP2ST,(R3)  ;SET FLAG FOR GROUP 2 ERRORS 



















8423 036520 901416 
8424 O36See 013746 
nS 036S26 ined 
8427 036534 bor 4a? 
8428 036536 052713 
8429 036542 061604 
8430 036544 012710 
a 036550 Ole2711 
8433 036554 0057e6 
036556 
036562 
S437 03570 001407 
8438 bseere 0S2713 
8439 036576 061605 
ges Oaeeos 1271} 
Be O3e610 
8443 036612 nie 
acess O1474e 
0366e% 004437 
036630 005716 
Gees 062713 
036640 061604 
036642 012710 
036645 Ole711 
03665e 
036654 0327 


cone 


Ree 
Weo 


BER edssaaa aii anes Es ES: 


CSS460 
001432 


32S: 


338: 


3S$: 


36S: 
60S: 


51S: 
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AND Loe THE PROPER HEADER pees TN I ADDRESS IN THE PROPER 


AT THIS TIME 


(SP) RS 
#OFOOGA, (RO) 


#DH6N, (RL) 


(SP)+ 
STMPI3 


34S 
STMP11,-(SP) 


Ru ,B1TCN NT 


33$ 
‘oe (R3) 


(SP) 
wD 006A (RO) 


mo ) 


ROO 2 Daw 
Sears 


#GRP1ST!GPINR, ( 
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RS) sANY GROUP 1 ERROR 
*= SKIP 






SEG 0190 


;ADD_INTO TOTAL 
STORE ADDRESS FOR BUILDING REPORT 


;CLEAR OFF STACK 
ANY EXPECTED ERRORS 
:NO_= SKIP 


SK 
GET GROUP 2 NOT RECEIVED ERRORS 
; COUNT NUMBER OF BITS 
sANY SET? 


iNO_- SKIP 
sSET FLAG FOR GROUP 2 NOT RECEIVED 
3800 INTO TOTAL 

STORE ADDRESS FOR BUILDING REPORT 


;CLEAR OFF STAC 


ANY ? 

3NO - SKIP 
;SET FLAG A GROUP 1 ERRORS SET 

;ADD INTO TOTAL 

;LOAD ADDRESS FOR BUILDING REPORT 


;CLEAR OFF STACK 
ANY EXPECTED ERRORS? 


: Pp 
*GET 1 NO RECEIVED ERROR 
-COUNT # OF BITS 

: SET? 

:NO = SKIP 

*SET FLAG FOR GROUP 1 NOT RECEIVED 


ADD INTO TOTAL 
;LOAD ADDRESS FOR BUILDING REPORT 


;CLEAR OFF STACK. 


sERROR_RETURN 
:NO ERROR RETURN 

:CHANGE TO FORMAT S - STORE ADDRESS 
?FOR BUILDING REPORT 

!SET DRIVE STATUS ERROR 


COA THES 
Rees IN ay te EROS tren TABLE 









apanacanee 


Hgtgtatiytgtytatgtitiy 
2 b> pan 90 Fo f= fae fe Be pe 
WOO NOU .£ Wr 


BRR RNRE 


036712 032777 
0367e0 001402 
0367e2 000137 
036726 005737 
036732 001004 
036734 012771 
036742 O00411 
036744 012771 
036752 032713 
036 001003 
ee tie 
036 042701 
036776 016170 


z 
S 


seas 


ae 


8 
S 


is 
= 


: 
is 


142220 


000000 


001254 
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SEG 0191 








RS CONTAINS EITHER THE NUMBER OF ERRORS THAT OCCURRED BUT WERE 
NOT EXPECTED 


THE NUMBER OF ERRORS THE OCCURRED IF NONE WERE EXPECTED 
RY Carnie THE os OF ERRORS THAT WERE EXPECTED BUT 


STMP1O CONTA ERnns THAT WERE EXPECTED BUT DID NOT OCCUR 
STMP11. CONTAIN Ne GROUP ERRO wat HERE EyPECTED eur DID NOT OCCUR 
$T’ CONT OUP 3 ERRO T DID NOT OCCUR 


GRPSER CONTAI OR OCCURRED AND 
(R1)=#STMP2 CONTAINS THE ADDRESS OF THE HEADER Means ADDRESS IN 
THAT MUST BE ALTERED TO IDENTIFY THE OPERATION 
(RO)=#STMP1 CONTAINS La | ADDRESS OF THE HEADER MESSAGE ADDRESS IN 
Te ERROR P ih ast MUST BE ALTERED TO PROVIDE A 


(R3)=8GRSUMF CONTAIN FLAGS TO INDICATE WHICH OF THE GROUP 
ERROR FLAG FIELDS HAVE ERROR BITS STORED. 





BIT #SW13, dSWR 31S yg INHIBITED? 
BEG 378 :NO_ = 

JMP 53S sELSE EXIT 

TST STMP13 WERE ERRORS EXPECTED? 
BNE 38S YES - SKIP 





IF NO ERRORS WERE EXPECTED, STMP10,11, &12 ARE NOT MEANINGFUL 
MOV #0HO07, @(R1) ;HEADER = ERROR IN OPERATION 
BR 39S 


MOV #OHOOS,3(R1) PRESET HORNSG = EXPECTED NOT SET 
BIT angie (R3)_;ANY NOT RECEIVED ERRORS? 


5 - SIP 
tod a(Ri) SET MESSAGE TO UNEXPECTED ERROR SET 
BIC Tiss Ri rE ALL BUT COMMAND 
MOV CMNDLB(R1),@(RO) ;MOVE os OF COMMAND MESSAGE 


- IN 
BIT #GRPIST!GRP2ST!GRP3ST, (R3) ;ANY GPR ERRORS? 
BEQ 46S sNO ~- SKIP GPR REPORT 









PRINT ALL THE ERRORS CONTAINED IN THE GPR1,2,3ER(UNEXPECTED ERRORS) 
MOV GRP3ER, RI GET GROUP 3 ERROR FLAGS 

MOV #GRPSMS, RO >SET POINTER TO GRP3 ERROR MESSAGES 

CLR STMP14 * CLEAR GROUP PRINTING INDICATOR 

HOY #17.,STMPiS itreaR SHIFT COUNT 

ROR Ri ‘ROTATE ERROR F 

BCS 4os ; WAS BIT SHIFTED 0 Sar SET? 

ADD #2, RO 

DEC stiis DEC SHIFT COUNT 

BNE 418 His *LOOP IF SHIFT NOT ZERO . 
MOV (RO) ,43$ ;GET ERROR MESSAGE ADDRESS FROM TABLE 

TYPE  ,SCRLF *TYPE C 

TYPE ‘TYPE ERROR MESSAGE 
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$551 


seg * 
4: 


sighs 
2R8 


Ba 


RR DBESRERRES 


1 


Bg gaggaey 


Sees 
SISRT 


~ 
- 
Ww 


ESSE SS 


i | aan 


037314 
037316 


8 
re 


a 


435: 


44S: 


4S$: 


46S: 


146S: 


47§: 


49S: 


. WORD sMESSAGE ADDRESS GOES HERE 
DEC RS ‘DECEREMENT TOTAL ERROR COUNT. 
BNE 141g LOOP I 
BR 46$ ELSE EXIT GPR ERROR PRINT LOOP 
TST (R3) ;TEST GPSUMF FLAG FOR PRINTING ERROR NOT RECEIVED 
SMI 47§ “YES = SKIP 
Ist STHP14 HPRINTING GROUP 3? 
, : 
MOV GRP2ER, RI "ELSE SET TO GROUP 2, GET GRP2ER 
MOV 8GRPOMS , RO 8 SET POINTER TO GROUP 2 ERROR MESSAGE TABLE 
INC STMP14 *BUMP_ TO INDTCATE PRINTING GROUP 2 
BR 40S GO RESTART PRINT LOOP 
CMP #2, STMP1Y SPRINTING GROUP 1? 
BEQ ugg *YES = EXIT GPR ERROR PRINT LOOP. 
MOV GRPIER, RI “ELSE SET TO GROUP 1, GET GROUP i ERROR 
MOV #GRP IMS, RO :SET POINTER TO GROUP 1 ERROR MESSAGE TABLE 
INC STMP14 “BUMP TO INDICATE PRINTING GROUP 1 
BR 40S RESTART PRINT LOOP. 
TST STMP13 sEXPECTING ERRORS? 
BEQ 49g *NO - SKIP 
PRINT ALL ERRORS CONTAINED IN STMP1O, 11, 12(NOT RECEIVED ERRORS) 
TST (R3) ;TEST IF PRINTING NOT RECEIVED ERRORS 
BMI 47§ IP 
Bit GP INR! GP GPENR!GP3NR. (R3) :ANY NOT RECEIVED ERRORS 
BIT tGRPIST!GRP2ST!GRPSST, (Ra) sANY NOT RECEIVED ERRORS? 
BEQ 146$ P LABEL FOR UNEXPECTED ERRORS 
TYPE  ,S$CRLF i VpE CREE 
TYPE DHOO6 *TYPE HEADER FOR PREVIOUS ERRORS 
BIS BREPNR, GPSUMF ;SET PRINTING NOT RECEIVED ERRORS SWITCH 
MOV RY. RS “MOVE TOTAL TO RS 
MOV STMP12,Ri GET GRP3 NOT RECEIVED ERRORS 
MOV #GRP3MS , RO *SET POINTER TO GROUP 3 MESSAGES 
BR 140$ GO START PRINT LOOP 
TST STHPL4 H PRINTI ? 
MOV $TMP11.R1 *ELSE SETUP TO PRINT GROUP 2 - GET ERRORS 
MOV #GRP2MS , RO 8 SET POINTER TO GROUP 2 MESSAGE TABLE 
INC STMP14 *BUMP TO INDICATE GROUP 2 PRINTING 
BR 40s *GO START PRINT LOOP 
CMP #2, STMP14 *PRINTING GROUP 1? 
BEQ 49§ YES = EXIT LOOP 
MOV STMP10,R1 *SET POINTER TO GROUP 1 MESSAGE 
MOV #GRP1MS, RO ‘TABLE AND GET GROUP 1 ERRORS. 
INC STMP14 “BUMP TO INDICATE GROUP 1 PRINTING 
_ BR 40$ :START LOOP AGAIN. 

BIT #77, (R3) TEST IF ANY ERRORS TO BE REPORTED 

; GRPIST!GRP2ST!GRP3ST 

;_ GPINR! GPENR? GP3NR 
BNE 61S YES = SKI 
RESREG *ELSE EXIT 
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OPERATION CHECK ROUTINE . SEO 0193 
8585 — 062716 000002 av #2, (SP) -BUMP FOR GOOD RETURN 
8587 
7326 uo? OO00000 61$:  OVB ET F RROR RETURN. 

S53 rere ae713 BRYEDS BIT scree T!GPENR, (RS) OAR 1 GROUP 2 E ERRoBes 
8591 037342 112776 o00008 ooD0000 MOVB os 5 3(SP) ‘ESE ot PFOR GROUP 2 ERROR RETURN 
Sed 037350 032713 O00011 cOo$: BIT #GRPIST!GPINR, (R3) ;ANY GROUP 1 ERRORS? 
Beee paraen Sia7ze oococo Ste 10° eet? FOR GROUP 1 ERROR RETURN. 
eS p37 36 Aase7§ ni BIT IORSTER. (RQ? ; CHECK IF ERROR Serine DRIVE STATUS 
8597 037370 001403 BEQ 5 :NO = 
B38 037372 112776 oOO0000S ono000 MOVB #5,a(SP) ‘ELSE CHANGE RETURN FORM GROUP 1 
8600 037400 013700 001302 S3$: MOV STESTN, RO ;SET UP SESCAPE TO FORCE 
8601 037404 006300 ASL RO ABORT TO PRESENT TEST AFTER 
8602 037406 016037 031040 001264 MOV $SWOSTB(RO), SESCAPE sERROR IS REPORTED 
8603 037414 162737 900002 001264 SUB #2, SESCAPE ;SUT’GO TO NEXT SCOPE STATEMENT 
8604 O37422 1049414 RESREG 
8605 O37424 Ooo0002 RTI ; RETURN 
8607 © LEE LEE ELE LEE UE EEK EL SERA EL ERR EERE REESE ERE ARES SER SEES EEE NERELS 
8608 “SBTTL BAD SECTOR CHECK 
8609 + THE FIELD WHOSE ADDRESS IS IN THE LOCATION AFTER THE 
8510 * CALL IS CHECKED TO SEE IF ANY SECTORS ARE LISTED THEREIN 
8611 + THAT HAVE THE CYLINDER AND TRACK ADDRESS SPECIETED IN 
8512 2% L.DCYL AND L.OT. IF A SECTOR IS FOUND IN THIS FIELD 
8613 2% THAT IS BAD LDR THAT CYLINDER AND TRACK THE SECTOR NUMBER 
8614 i IS PLACED ON THE STACK. THE TOTAL NUMBER OF BAD SECTORS 
8615 + 1S PLACED ON THE STACK AFTER THE ENTIRE 
Be1b ii FIELD IS SEARCHED. 
8618 * x CALL: JSR R4, BDSRCK 
8615 . i <ADDRESS OF FIELD TO BE SEARCHED> 
gest : 5 RERREREREA LASER LAE RELE EELS AEE LE REA E REE R EKER E REEL ERLE ELAR ELE ELE 
BE22 26 012637 001236 BDSRCK: MOV (SP)+, STMPE ;STORE OLD RY CONTENTS 
Bbe3 32 010437 001240 MOV RY, STMP7 
B624 037436 011404 MOV Ri) RY GET POINTER TO FIELD TO BE CHECKED 
8625 037440 005037 001234 CLR MPS *CLE 
8626 037444 005714 1S: TST an TEST IF FIELD HAS NO (OR NO MORE)ENTRIES 
8627 O37446 100417 BMI 4g YES - EX 
8628 037450 023724 001614 CMP L.DCYL,(R4)+ | 3IS THIS ENTRY FOR THIS CYLINDER? 

| 8629 037454 O01012 BNE 3$ 3NO - SKIP 

| 8830 037456 005204 INC RY “BUMP TO TRACK 

| 8631 037460 123714 001607 CMPB ss L.. DT, (R4) 1S ENTRY FOR THIS TRACK? 

| B32 037464 001005 BNE 2s =NO_ = SK 
8633 037466 OOSO46 CLR =-(SP) “CLEAR STACK LOCATION 

| 8634 037470 114416 MOVB  =(R4), (SP) “PUT SECTOR NUMBER ON STACK 
8635 037472 005237 001234 INC STMPS *BUMP COUNTER 

| 8636 037476 OOD401 BR 3$ : BRANCH 
a 037500 005304 2S: DEC RY : DECREMENT POINTER TO WORD ALIGN 

| 8639 037502 905724 35: TST (RY)+ ;BUNP TO NEXT ENT 

| 8840 037504 000757 BR 1$ TEST NEXT er 

| 

| 





BAD SECT 


037506 013746 001234 
864 3 O37S1e 013746 001236 


evs Garezs OoSrey 
46 037524 000204 


ee ees ‘ 


4§: 


s@ 


SO SO SS SS SO SE SS SE SSF VOSS SS SESE SF SESE SS SESE SEE SESS WEE SE SESE SE SESE SE SESE 66 S8 CF 28S OO Gs ee ee ee 
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OZREKB.P11 R CHECK 


s © SELKKKAAE ALEK EL LE KE RE RAR SALE LEAKE RELA ELE RRA LALLE LALA KEL FELELFEE 
S8TIL oF AND COMPARE ROUTINE 


URN: RTS 
RY IS ADJUSTED ih THE CODE FOR THE FOLLOWING RETURNS: 


DEFINITION OF CONTROL WORD: 
- DO COMP 


Beatie OF CALLS: 


Se ee ee ee ee ee ee ee ee ee ee ee ee 





— SEQ 0194 





MOV STMPS,-(SP) ;PUT COUNT ON STACK 

MOV sTHee, -(SP) ; PUT ao. e CONTENTS BACK ON STACK 
MOV STMP7,R4 ;SET UP RETURN 

TST (RY) +” BUMP Bast ARAMETER 

RTS R4 RETURN 










DATA GENERATION 
JSR 
CONTROL WORD 


JSR R4, GENCOM 
CONTROL WORD 
LENGTH 





JSR R4, GENCOM 
CONTROL WORD 
RELOCATION CONSTANT 
LENGTH 


THE FIRST CALL RETURNS TO THE LOCATION FOLLOWING THE 
CONTROL WORD. THIS IS UNCONDITIONAL. 


SECOND CALL RETURNS TO THE LOCATION POLL OMENS THE LENGTH IF 
OPERATION ores DATA COMPARE AND DATA MISCOMPARED. 

IF DATA IS TO BE GENERATED ONLY_OR NO DATA C 

ERRORS OCCURRED, THE RETURN IS TO LENGTH +4. 


THE THIRD CALL IS IDENTICAL TO THE SECOND. 


ARE TION OF IBUFF (SOURCE) TO OBUFF 
(DESTINATION). EXPECTED VALUES ARE_IN OBUFF (DESTINATION. 
~ RESUME COMPARE OPERATION FROM POINT ait gy LAST COMPARE. 
- INVOKE Stl MANAGEMENT FOR SOURCE (IB 
- INVOKE MEMORY MANAGEMENT FOR DESTINATION (OBUEF). 

- REPEAT FIRST WORD OF SELECTED PATTERN THROUGHOUT OBUFF. 

- CLEAR IBUFF TO PATTERN SELECTED. 

4 LD HE » CONSIDERING Fen FILE 
EAD 


DWODOWMWMOMwW w 
AHHH H4q444-4 4 
O-nMNWwc Wm 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


CNDOWYe KKK — 


NO D 
OTHER PATTERNS TEROUIDED ARE PATTERNS 2-6, 8-16. 
CALL WITH CONTROL WORD THE ONLY PARAMETER IS USED FOR 
BUILDING OR COMPARING HEADERS OR RESUMING A COMPARE OPERATION. 


THE CALL WITH CONTROL WORD AND LENGTH AS PARAMETERS IS USED 
FOR DATA GENERATION OR COMPARE AND FOR IBUFF INITALIZATION. 


THE CALL WITH CONTROL WORD, RELOCATION CONSTANT, AND LENGTH IS 









Sid046 


3 
012705 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACYL1 27(732) 
OZR6KB. DATA GENERATION AND COMPARE ROUTINE 


USED FOR DATA GENERATION OR COMPARE WITH MEMORY MANAGEMENT. 


052744 001520 


ood200 


052773 
040314 


001400 


040076 
001607 
001614 
coo00s 


mK OK Oe ok 


ee ef ee ee 


DESCRIPTION: 
na waa tt IS a eee AND WILL PERFORM THE a 


SOO E SS OOS SESE SESE SESE SE CEOS OE SESE OS SESH SS OHS Oe Oe ee we ee ee ee 


ee ee ee ee ee eS ee ee ee es 2. 2 ee 2 2 
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LD HE EITHER 20 OR 22 SECTORS/TRACK MODE. THE 
ROUTINE WILL “BUILD THE HEADERS AS ALL GOOD SECTORS (BIT 9) 
OR TAKE THE BAD SECTOR FILES (HARDWARE OR SOFT FOR 

EITHER FORMAT) INTO gg AND BUILD THE HEADERS WITH THE 
SECTORS MARKED BAD IF ANY SECTORS FOR THE CYLINDER - TRACK 
ARE LISTED THEREIN (BIT 9). 


THE CONTENTS OF IBUFF AND OBUFF (BIT 15). THE 
Gout 5M Eatpane OF HE BUFFER MAY BE HEADERS OR BATA. a 


HEAD 
WiLL CAUSE THE THE COMPARE fo BE LIMITED TO 74(8) OR 102(8) 
W OF HEADERS. THE FO 


o-~ 


MAY BE BUILT BEFORE T HE 
OPERATION (BIT 15 AND BIT 8 OR 9). DATA CAN ALSO BE 
GENERATED BEFORE THE COMPARE ‘NON-ZERO BITS 6-0). 
RESUME COMPARE OPERATION. IF ° COMPARE OPERATION 
Tere a gfe THE ROUTINE RETURNS TO CALLER 
BUT TORE ARAMETERS SUCH THAT THE COMPARE CAN BE 
REGURED HIS IS DONE BY CALLING GENCOM WITH BIT 14 
SET IN THE CONTROL WORD. 


DATA ghee OR chy pee USING paeTIORY TE CeTENT. 
MEMORY MANAG Oe Ee FOR EITHER 
SOURCE OR DESTINATION gp A ee BOTH. IN THIS 


MANNER bar TION ¢ el BE PAD 
PLACE DATA ANYWHERE IN AVAILABLE OE WORY, LIKEWISE 
DATA COMPARE WILL COMPARE THE CONTENTS OF IBUFF TO 
ANY AREA OF AVAILABLE MEMORY. 







RO, -(SP) ;;PUSH RO ON STACK 
R1,-(SP) ;;PUSH R1 ON STACK 
R3,~-(SP) ;;PUSH R3 ON STACK 
~(SP) ;;PUSH RS ON STACK 
)+,R i T PARAMETER WORD 
#EMS4, EMISN SET FOR HEADER COMPARE ERROR 


;PR OR 
BIT7,RO HEADER OPERATION SPECIFIED? 
YES - SKIP 


18$ 
#EMSS,EMISN CHANGE FOR DATA COMPARE ERROR 
17$ ;ELSE JUMP TO DATA ROUTINE 


RY, -(SP) ;;PUSH RY ON STACK 
#91T8!B1T9, RO maT HEADERS BE BUILT? 


ES 
ti is ELSE JUMP TO HEADER COMPARE 
L.DT,R1 START HEADER BUILD ROUTINE 
L-DCYL,R3 ‘GET TRACK AND CYL 
#5,R SET COUNT TO SHIFT TRACK FOR HDR WORD 


1 DEREK 


8°S3 
8754 


' 
8% 


3 


damemgeen 


BR 


REEL RPEPRRERCT ESE Cn ee RS RERBR 


MEH) UN SUN a SS Ee 


RAS11 Fu STIONAL ¢ 
B.Pi! 


03761 
O37be 
057622 


037624 


a 


037644 





Bs Sew Ges aed Seca 


82 
he 
=e 
bs 
™~“ 


eee 


Ce ee ee ee 


ONT 
pata SE 


000026 
020000 
O00Se4 
001080 
140000 
OBO44E 
001224 


001224 
001224 


001000 


003&00 


1S: ASL 


23: gIs 
38: MOV 


~ 
a 
E fh 
=p) 


cones 3 


cd 
BBeRRS S25 


Pte 
OOO 
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ac6,R4 
ScFMT,i..CS) 
2$ 


#24, R4 
#513, R1 


Gs 


sBITIS?81T14,R1 
RS 


; SHIFT TRACE 
:DECREMENT TRACK 
;LOOP UNTIL COUNT 0 


; PRESET FOR ae me OR MODE 
15 IT 24 SECTOR MODE? 


3NO - SKIP 
CHANGE COUNT FOR 24 SECTOR MODE 
:SET 24 SECTOR MODE BIT IN WRD & OF HOR 


ITS TO INDICATE GOOD SECTOR 
TER TO ADDRESS WHERE HEADERS GO 


i. HEADERS BE CORRECTED FOR TABLE ENTRIES? 
tT€°THIS A COMPARE OPERATION? 

 YES-GO HDR COMPARE 

ELSE GET OUT 


; PRESET FOR BS FACTORY LIST 
sits, SFP :SET BIT TO BE RESET IN BAD HEADER 
t.cSi 13 18 6 SECTOR MODE? 
BSFe4P, 6S ELSE CHANGE FOR 24 SECTOR MODE 
R4, BUSRCK :GO CHECK FOR BAD SECTOR THIS ADDRESS 
0 *POINTER TO FILE TO BE CHECKED GOES HERE 
(SP)+,RS *GET 8 OF BAD SECTORS THIS PACK ACDRESS 
95 :SKIP IF ZERO 
(SP),R1 ;GET_ 1ST BAD SECTOR NUMBER 
Rl *MULTIPLY SECTOR NUMBER BY & TO 
Rl ;LOACATE SECTOR TO BE MARKED BAD 
ty 
Ri’ FOR 2ND WORD THAT SECTOR 
STAP1, OBUFF(R1) BIT FOR BAD SECTOR IN HOR 
STMP] AREF) Et THE HVRC BIT 
> POOP IF NOT ZERD 
SBITIS,STMP1 | ;WERE WE DOING BS FACTORY LIST? 
10$ =NO = GO CHECK IF COMPARE MUST BE DONE 


er 


01% 





ce es ee = a ow Oe ree eee ee 0 es 0 seen wn ew ere ween ease cepeees + ee = eee EEE. 





= 


& 28s 3 
SRESR ME Bee 


Sa88 SA82828886 


ZAFR SEE 


Se: 


PERSON ss canoe sae GRIER OM UN MON VuNe NSE Cems oe ce 


: 


Daooes 0017 


DATA 


Gs 


= 


a Gs 


fen 


= 


Gee 


RKE1L1 — ebb DIPGNOSTIC MACY1LI 27(732) 
dz GENERATION AND COMPARE ROUTINE 


040000 0iee4 
001644 037766 
010000 001600 


OCis4e 037766 


MOV w8IT14, $TMPL 
SS26P’ 6S 
BIT acFrit,C.CS1 
MOV BSS24P 6S 
BR 8s 


START OF COMPARE 
MOV #102 

BIT SCENT, L.cS1 
BEQ 128 

MOV 14, Rl 

128: MOV sIBUFF, RY 


iis: 
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;ELSE SET BIT TO BE RESET IN BAD HOR 
; PRESE POINTER FOR 26 SECTOR MODE 

F WE one oon Ne 26 SECTOR MODE 
YES - SKIP TO STAR 


CHECK 
CHANGE POINTER TOR "3 SECTOR MODE 
;SKIP TO START CHECK 


;PRESET FOR 102 WORDS OF HEADER 
s CHECK Ye SECTOR MODE 
CHANGE TO 74 WORDS OF HEADER 


;SET START OF HEADERS TO BE COMPARED 
:SET START OF GOOD HEADERS 


CLR 3 : CLEAR COUNTER 
grr aG1T14,RO : sis THIS if CONTINUATION OF EARLIER COMPARE 
28S: MOV DESHLD, RS IGET Vv VALUES WHERE PREVIOUS CHECK STOPPED 
MOV SRCHLD, RY : DESTINATION AND SOURCE 
MOV WRONUM; R3 : WORD NUMBER IN ERROR 
MOV WROCNT; Ri : WORD COUNT LEFT IN COMPARE 
TST RI *TEST IF WORD COUNT LEFT = 0 
Q SOs YES = EXIT 
138: BIT #81T12'BIT13,RO ;MEM MANAGE REQUIRED? 
BEQ 25s :NO - SKIP 
INC daSRO “TURN IT ON 
ess: CMP (R4)+, (RS)+ {COMPARE THE WORDS 
BNE 14S :SKIP IF NOT EQUAL 
INC R3 :BUMP WORD NUMBER IN ERRO 
DEC El. iDEC WORD, COUNT LEFT IN COMPARE 
a 8GI1T12!B1T13,RO :MEM MANAGE th use? 
BEQ 0s =NO = SKIP 
a DEC asSRO TURN IT OFF 
"MoV (SP)+,R4 ;;POP STACK INTO RY 
BR 168 
: ERROR REPORT PREP AND PARAMETER STORAGE FOR CONTINUATION 
14S: sSTORE DESTINATION 


BESZsanssses 


1SS§: 


eBtT12!61T13,R0 : 


$Loag GOOD WORD FOR REPORT 
BAD WORD 














SEC 0197 











DATA GENERATION AND COMPARE ROUTINE 
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eees 


~“ 


Baba 
Sal 


887 


i CeO 


8872 
8873 
8874 
8875 
£876 

77 


te! 


























22 
3 


Bic 


— 
tJ 


—Sne- 8 
ENS 
8 


secces CRO oe 


fou | 


~- 


or 


es 
eee 


Q 
0 
8) 


Be 





18: 


178: 


29s: 


20S: 
21S: 





MOV (SP}4,R4 -POP STACK INTO RY 
TST (R4)4" ERROR RETURN 

MOV (SP)+,R5 POP ST ack INTO RS 

MOV (5P}+°R3 :POP STACK INTO R2 

MOV (SP)4/R Hh STACK INTO RI 

MOV (SP)+'R POP STACK INTO RO 

RTS RY 

DATA PATTERN PROCESSING ROUTINE 

SIT #81T14,R0 sCONTINUE WITH COMPARE? 

BEQ Q *NO = SKIP 

MOV RY. -(SP) :STORE RETURN 

BR 2e$ :GO CONTINUE COMPARE 

MOV : T NAT ON 

MOV SIBUFF’R GET ofan oFeRee 

BIT sBIT12!BIT13,RO ;USE ay GENAGE? 

BEQ 21s :NO = SKIP 

MOV (R4)+, 98KIPARE ;LOAD PAR FOR RELOCATION 

grr #81T12,R0 RELOCATE SOURCE? 

HOV 8140070, RS :SET DESTINATION TO USE PARE + OFFSET 
MOV #140070,R3 *SET SOURCE TO USE PARS + OFFSET 
MOV (R4) +. RI ;STORE COUNT 

MOV fi (oP) >STORE RETURN 

MOV :PUT ad BUFF POINTER 

CLR :CLE OR WORD NUMBER COUNTER 
BIT - ge SANY DATA PATTERN SPECIFIED? 

BEQ 13$ *NO - GO DO COMPARE 


START OF GENERATION ROUTINE 


;STORE PARAMETERS FOR COMPARE 


CODE TO GENERATE DATA PATTERN IN AREA POINTED TO SY RS. 


WILL BE TURNED ON BUT RELOCATION 


WILL NOY OCCUR UNLESS REQUIRED BY SWITCHES 


erg 1 degen 
NC #SRO 

BIT #81T10,R0 

BEG 


I 


ae REQUIRED? 


:GENERATE PATTERN IN IBUFF? 
he Bp 


RY AND RS 








RK611_ FUNC 


DATA 


122700 
001004 


Ww 
ui 


Bs 


Sie BS 


=: 


ons 


Br 


ae is 


o =) 
= 
~— 


es es 


a 


= 


000001 


ooc007 


TIONAL CONTROLLER DIAGNOSTIC MACYi1 
GENERATION AND COMPARE ROU 


323: 
30S: 


sss: 
315: 


56S: 


S78: 


58s: 


595: 


618: 


64S: 


2329 


3 


Bg Sng Sng BEng 8ERg BER 


2) 
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#1,R0 
sé 
(RS)+ 
Ri 
20$ 
E23 
#7,R0 


S 
a-1,(RS)+ 
5 


SEG 0199 
; PATTERN 1 (ALL ZEROS)? 


CLEAR WORD IN parr 

DEC WORD COUN 

LOOP UNTIL WORD COUNT ZERO 
EXIT BUILD 


nO eK 7 (ALL ONES)? 


SK 
NSA WORD IN BUFF 
DEC WORD COUNT 
sLOOP UNTIL WORD COUNT ZERO 
sEXIT BUILD 


;PATTERN 2 SET UP 
;PATTERN 3 SET UP 
;PATTERN 4 SET UP 
;PATTERN 5 SET UP 
sPATTERN 6 SET UP 
;PATTERN 10 SET UP 
;PATTERN 11 SET UP 
;PATTERN 12 SET UP ; 


;PATTERN 13 SET UP 












cael 012703 
040664 000424 


012703 


es iat 


sudateinpaieenbaeiutepsatapsiorshl 
8 
a 





° 
2 
4 
RR 


8 2838:5:8:8:8:8:88 
rh ee 
0 Co NIOrUT © 
3 ¥ 
88 R 
4 

RO a Bt 
i gee 38 


= 


= 
= 
°o 
e 
a 





S 


33 


esasoemnntans 
= 


RRREE EERE 


SBFSPSR TSS 


| 
| 


044520 


000014 
O44S60 


000015 


easarue 


65S: 


£6$: 


67$: 


68$: 


70S: 


718: 


: 
SSSSSNUROS was BSS MSS AsanS Seen 


i 


238: 
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MUV 
BR 
CMPB 
BNE 
MOV 
BR 


CMPB 


w 
ol 
4 


#PATI3,R3 
708 


8}4,R0 
#PAT14,R3 
70$ 


£43580 
#PATIS,R3 
70S 


#16,R0 
68s 
sPAT16,R3 
70$ 


#PAT16,R3 
#B1T11,R0 
73$ 

pad -(SP) 


aie. RO. 


Mi 


(R4)+, (RS)+ 


a3 Bee 


2m 
an 


La 
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T12!B1T13,R0 





;PATTERN 14 SET UP 
;PATTERN 15 SET UP 
;PATTERN 16 SET UP 


;SET UP FOR 16 
;FIRST WORD REPEAT? 
YES - SKIP 

STORE RY 


$e Parr FOR PATTERN LENGTH 
STORE START OF BUFF 


ZERO 
DEC PAT LENGTH COUNT 
;LOOP IF NOT ZERO 


;REPEAT PATTERN IN BUFFER 
fg Mage WORD COUNT ZERO 


Pee WORD COUNT > n> SUFFER 
‘LOOP UNTIL. ZERO 


; MEMORY MANAGEMENT REQUIRED? 


SKIP 
iN ont COMPARE PARAMETERS 


;GO START COMPARE 














é 
: 


041 


: 
Z 


#2 
ai 
i 


on 
BY 
By 


Fegte 


Ba 


33 i 
ae 
-_ 


2[gpRco 
Ben 


SPQPIRIPE BF PP PPPRIzP 
8 
3 


ee ee ee oe oo or Paes bee pee Os b= Fb pe Be 


A ee ee oe 
GHSER2RRS Ss no RRERB 


: 


OZRSKB 
8035 
9036 
atts 
3040 
$041 
3042 
$043 
e044 
S045 
S045 
$047 
gouge 
g049 
soso 
$051 
8052 
3053 
gos4 
8055 
S056 
9057 
3058 
3059 
$060 
$051 
3062 
3063 
S064 
8065 
S056 
8057 
g0se 
3063 
2079 
$071 
3072 
8073 
9074 
an 
3078 
$073 
3080 
$081 
ses a 
308? 
2088 


ON AND COMPARE ROUTINE SEO 0201 

MOV (SP)+,R4 POP STACK INTO RY 
IMP es 60 TO Extt 

“SSTTL™ PHASE LOCK LOOP CLOCK ADIUSTNENT ROUNTINE || °8 SS 

i# Hie ROUT NE 1 EN RED WR eet A START ar LOCATION 2268). THE 

te PROGRAH VAR TALES THEA Fine r3 The EL OK ADJUST ROUTINE. 

1 THE ROUTINE SELECTS THE FIRST AVAILABLE DRIVE 

1% RESETS DIAGNOSTIC MODE BIT IN MRI. INSTRUCTIONS ON WHERE TO 

i SCOPE AND WHAT TO ADJUST ARE TYPED ON THE CONSOLE. 

* THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED. 


047626 


000040 
000014 


000000 
000014 
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-Pil DATA GENERAT 


Baiose Gb6iS7 ovo3ce 





















ADJCLK: TYPE , OPRO19 ;TYPE ADJUSTMENT INSTRUCTIONS 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 ;BAD INIT ERROR 
JSR R4, LRLOAD ;LOAD “L” REGS 
SELDRV ; SELDRV 
0 30 WORDS 
0 :0_IS BUFF ADDRESS 
-BYTE OQ SECTOR O 
-BYTE O TRACK O 
0 ;CYLINDER O 
TWAT16 ;WAIT FOR INTERRUPT 
ERROR 2 TO SLOW/NOT RECEIVED ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R S, 6, 7 ;REPORT ALL ERRORS 


1$: MOV #OMD,RKMRI(R2) ;SET DIAG MODE 


MOV aie. ,RI SET A COUNT 
2s DEC : 
BNE BS LOOP UNTIL ZERO 
MOV $0,RKMRI(R2)  § ;CLEAR MRI 
MOV #12. RI SET COUNT 
33: DEC Rl . OUNT 
BNE 3$ ‘LOOP UNTIL ZERO 
BR 1s RESTART LOOP 


-SBTTL TYPE ROUTINE 


RR ete aia ttt te 


: ROUTINE TO TYPE bth iz messace. MES Ge Must TER TERM etehe Brien A 9 BY 


;*#THE ROUTINE WILL 

; #NOTEL: CONTAINS ue CHARACTER 10 8 USED AS THE FILLER CHARACTER. 
#NOTEe: STC LLS CONTAINS THE NUMBER OF PIETER CHARACTERS REQUIRED. 
am SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 






RK611 FUNCTIONAL 
OZREKB. Pil 


See AaReaS 


PPP 22 2222 
SRT CH 
ree 


RE 
ee 


Sees 


al 
au 


; 


—SS— 


BEESERERS 
ue 


—- 
o 


R 
~“ 
o 


8 
<£ 
8 


SU TENS SBARREBRES 
PEPBP_ PRSLPPSPRPPPPSPSPPSRPOPRPD 
BR 
aA 


i 


wy 

roy 

ea Pe Bh Bs 0 SB ht 0 fh bs 0 bt hn 2 ps hs ee bs gs ps fe ee 
58 
a 


BASE SoRREsNseReS 


BS BRVRR PO 
SS 25 


WOW NOWKHWONWKONOWVVWVOWOWONOOWVWWOWOOWODVOWOOWOWNWUWUODWWOOWWwWWwW 
rT 


Bs = 0 Bb bs Bb 0 = 0 a 0 0 0 Be b= bb -2 92 DB Ph hs = 2 Be ps 2 He Bs pe Bs Fs pe ps fe Be he 


FSSESSBIRRLER 
B22222222 
SL as lk 


CONTROLLER DIAGNOSTIC 
TYPE ROUTINE 


001157 
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3% TYPE 

3% MESADR 

3% 

$TYPE: TSTB  $TPFLG 

BPL 1$ 

HALT 

BR 3$ 
1$ MOV RO, -(SP) 

MOV adetsP) RO 

CMPB SOE TENY, SENV 

ae #APTSPOOL, SENVM 

BEQ 625 

MOV 0,615 

JSR PC, SATY3 
61$: § .WORD 
62S: B1TB #APTCSUP, SENVM 
es: MOVB (RO)+,-(SP) 

BNE 4§ 

TST (SP)+ 
60$: MOV (SP)+,R0 
38: B00 #2, (SP) 
4S: CMPB Os BHT, (SP) 

BEO 8S 

CMPB sR, (SP) 

BNE S$ 

TST (SP)+ 

TYPE 

SCRLF 

CLRB § SCHARCNT 

BR 2 
S$: JSR PC. STYPEC 
6S: CMPB SFTLLC, (SP)+ 


BNE 
MOV SNULL , -(SP) 
78: DECB = 1(SP) 
6$ 


BLT 
JSR PC, STYPEC 
DECB § SCHARCNT 
BR 7§ 

sHORIZONTAL TAB PROCESSOR 

8S: MOVB = &”_—«C (SP) 

93: JSR Pc, $TYPEC 
ITB 47, SCHARCNT 
TST (SP)+ 


STYPEC: Ferg aSTPS : 
BPL STYPEC 
MOVE 2(SP),a$TPB 









3;1S THERE A TERMINAL? 
;;BR IF YES 
Die HERE IF NO TERMINAL 


SAVE RO 
EGET ADDRESS OF ASCIZ STRING 
tO GO CHECK FOR eT CONSOLE 
+: SPOOL SeesAGE TO APT 
11NO,G0 CHECK FOR CONSOLE 

3SE 


MESSAGE ADDRESS FOR APT 
MESSAGE TO APT 


SP ee ress 
0 BE TYPED ore STACK 


;;RESTORE RO 

;;ADJUST RETURN PC 
;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 
3;POP_ <CR><LF> EQUIV 
: A CR AND LP 


TO BE TYPED? 
THE NULL OFF OF STACK 
NOT COUNT AS A COUNT ; 


sere 
: " 
F 


REPLACE TAB WITH SPACE 
TYPE A SPACE 
he F NOT AT 

POP SPACE OFF sree 


GET_NEXT CHARACTER 
WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 


° 
’ 
> 
’ 
° 
’ 
° 
’ 
° 
’ 
° 
’ 
° 
’ 








a re aT ra at te 


| 

9 

S 

g 

2 

3 

5 

31 

31 

31 

o] 

91 

91 

31 

31 

91 

$162 

9163 

9164 

S165 

9166 

$167 041440 
9168 041440 
9169 041442 
9170 O41444 
9171 O41446 
a Sie 
9174 Batuee 
9175 041462 
a Bie 
9178 tha) 
9173 ees 
$180 O41 
9181 1506 
gies 1510 
183 1514 
alas piieeS 
aige fal 
9187 041524 
9188 041526 
9189 041530 
3191 ONES 
9132 putese 
a ie 
gigs buleeo 
9196 041554 
9197 041560 
9198 041562 
9199 041564 
$200 041570 






—O 


NESE ads eee SSSI? 


ee eee ee ~~ 


020200 
000020 


eet 


041644 


000001 


177777 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
5 ARSE SEER HEHE AE SE SE EEE SE SESE AE SEE HEE ESE EEE EEE HE EE EEE REELS 


sETHES ROUTINE IS 
#NUMBER IS POSITIVE OR NEGATIVE 
*#BEFORE THE FIRS 
*#REPLACED WITH SPACES 
: Vv NUM, -(SP) 
3% TYPDS 
STYPDS: 
MOV RO,-(SP) 
MOV Rl; -(SP) 
MOV Re; -(SP) 
MOV R3,-(5P) 
MOV RS. -(SP) 
MOV #20200, -(SP) 
MOV 20(S5P),RS 
BPL 1$ 
NEG RS 
MOVB  #’-, 1(SP) 
1S: CLR RO 
MOV #$DBLK,R3 
MOVE = a”—, (R3)4 
2s: CLR R2 
MOV SDTBL(RO),R1 
3S: SUB Ri,RS 
BLT 4 
oo 9 
4$: ADD R1,RS 
TST Re 
BNE S$ 
TSTB ss (SP) 
BMI 7§ 
cs ASLB ~=s«( SP) 
SOV ee ),-1(R3) 
6S: ats #’0,Re 
73: BIS #’ Re 
MOVB Re, (R3)+ 
TST (RO)+ 
CMP RO, #10 
BLT 2$ 
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OZR6KB.P11 =. TYPE ROUTINE 
9145 eS 122766 000015 900002 CMPB Ss W#CR, 2 (SP) 
142 aia tos039 041434 CLR CHARCNT 
BRS dee ge Free 
ic aa lee766 O0CO0le 000002 15: ne af Be : SP) 
ie Bie Ge fy ts 
1 041434 900000 SCHARCNT: .WORD 0 
041436 000207 $TYPEX: RTS PC 


. SEQ 0203 
: 118 CHARACTER A CARRIAGE RETURN? 
ite =-CLEAR CHARACTER COUNT 
::1S CHARACTER A LINE FEED? 
ft IF YES 


; ; BRANCH 
;;COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 





;;PUT_THE BINARY NUMBER ON THE STACK , 
33G0 TO THE ROUTINE 


2 
@ 
8 
2 
4 
g 


ee 
ss 
ee 
be 
. 

99 
. 


Pe 
PY 
R= 


a 
e 


i 
a 
Su 
: 

F 


aa 
x 
g 


BRIN 
i 
xi 


ANTS INDEX — 
TPUT POINTER 


CL 
$8 THE CONS 

i $EORM_ THIS BCD DIGIT 

23] HE BCD DIGIT BY 1 


$8 BACK THE CONSTANT 
;;CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 
jatthh DOING LEADING 0°S? 
33BR fT Yes 





















9201 041572 
9202 041574 
asqq Buleos 
She Ouieod 
asus puters 
goog 041614 
$203 HIB 
$210 O41 
$211 O41622 
Q512 O41624 
$213 041626 
S214 Ouib32 
@21S 41640 
S216 O41e42 
9217 O41E44 
$218 O41646 
$219 41650 
See0 GNIE5e 
1 O41654 
S222 
9223 
254 
9225 
9226 
9227 
9228 
9239 
$230 
9231 
$232 
9533 
| 9234 
| 935 
| 
| 933g 
9239 
540 
544i 
goup 
$243 
| dae 
ett 
247 O41E64 
@2ug 041670 
S249 041676 
| @350 Oy41702 
3251 04170 
e525 pMIie 
| deg Buleee 
| g965 Q41732 
| 9256 041734 
| 


eS ae 
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OZREKS.P11 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0204 


003002 
ns 


ae 


: 


O0-OO000e-— 


ne 
o 


= 
Seqaitt 


ater 4 
gee 


: 


Sere 
ead 


2 
e 


177777 177776 


BuT 8S ;;G0 TO EXIT 


MOV RS,Re j3GET THE $°,: 
8$: ae an + fs He LSD the First NON-ZERO? 
BPL 93 ::BR IF NO 
MOVB -1(SP),-2(R3) $:YES--SET THE SIGN FOR TYFING 
: CLRB (R33) :?SET THE TERMINATOR 
MOV (SP)+,R5 ::POP STACK INTO RS 
MOV (SP)+/R3 ::POP STACK INTO R3 
MOV (SP)+'Re POP STACK INTO Re 
MOV (SP)+/Ri ::POP STACK INTO R1 
MOV (SP)+’RO ?:POP STACK INTO RO 
TYPE SDBL ?:NOW TYPE THE NUMBER 
MOV 2(SP),4(SP) ADJUST THE STACK 
MOV (SP)+, (SP) 
RTI ;;RETURN TO USER 
SOTBL: 10000. 
1000. 
100. 
10 
SDBLK: .BL 


-BLKW OY 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


$5 HARARE AE SEE EE HEME HE SEE HEE HE HEE AE HEHE RSE SEE RIESE SE SEE EEE EEE REE EE EEE EERE 
:KTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII) NUMBER AND TYPE IT. 

+2 eet HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, -(SP) ;;NUMBER TO BE TYPED 
TYP ;;CALL FOR TYPEOUT 
“BVT : 33N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
e. 9° -_ 


0 
;;1=TYPE LEADING ZEROS 
;;Q0=SUPPRESS LEADING ZEROS 


: #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
Vy OR STYPOC 


Dee RE RC RK i IC ec 2c 
oO 


*¥CALL: 

2 MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

i TYPON *?CALL FOR TYPEOUT 

i #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

:# =O MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

* TYPOC *?CALL FOR TYPEOUT 

STYPOS: MOV a(SP),-(SP) ; PICKUP THE MODE 
MOVB 1(SP),SOFILL  :;LOAD ZERO FILL SWITCH 
MOVB § (SP)+°SOMODE+1 ;:NUMBER OF DIGITS TO TYPE 
ADD te, ) ADJUST RETURN ADDRESS 

STYPOC: MOVB #1,SOFILL 3;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE+1 SET FOR SIX(6) DIGITS 

STYPON: MOVB #5, SOCNT *:SET THE ITERATION COUNT 
MOV R3,-(SP) $8 R3 
MOV s;SAVE RY 


“oO 
fe 
pee 


gremnnnnns ¢ 


RR RR AES ES 


2 be be hs Fm Hs Be hb pe pe 


SSERS 
PEPPEPELELEPLELELE 
BTR aRs 


BH CHER CHEN CHESSER AREA EAM 





BINARY 
010546 


22090 
EDR 


Escuae 


CONTROLLER DIAGN 


DO 


cooose op0004 
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) AND TYPE 
MOV RS,-(SP) ;;SAVE_RS 
MOVE SOMODE+1, RY *:GET THE NUMBER OF DIGITS TO TYPE 
ADD #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4’ SOMODE :: SAVE IT FOR USE 
MOVB SOF ILL, Ra t HE ZERO FILL SWITCH 
MOV 12(5P),RS ::PICKUP THE INPUT NUMBER 
CLR R3 *:CLEAR THE OUTPUT WORD 
1$: ROL RS ;;ROTATE MSB 0 
BR 33 :G0 DO MSB 
2s: ROL RS ;;FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV R5,R3 
38: ROL R3 ;;GET LSB OF THIS DIGIT 
DECB  SOMODE ::TYPE THIS DIGIT? 
BPL 7$ ;;BR_IF_NO 
BIC #177770,R3 ?:GET RID OF JUNK 
BNE 4§ ;;TEST FOR O 
TST RY ::SUPPRESS THIS 0? 
BEQ S$ 3;BR IF YES 
4S: INC RY >:DON’T SUPPRESS ANYMORE 0’S 
BIS #’0,R3 *:MAKE THIS DIGIT ASCII 
SS: BIS #’ °R3 MAKE ASCII IF NOT ALREADY 
MOVE R3, 8S >:SAVE FOR TYPING 
TYPE a¢ ::G0 TYPE THIS DIGIT 
78: DECB 43s SCNT *:COUNT BY 1 
BGT es ;;BR IF MORE TO DO 
BLT 6$ :BR IF DONE 
INC RY >: INSURE LAST DIGIT ISN’T A BLANK 
BR FL 3 :G0 DO THE DIGIT 
6S: MOV (SP)+,RS : :RESTORE 
MOV (SP)+'R4 RESTORE RY 
MOV (SP)+'R3 : :RESTORE 
MOV 2(SP),4(SP) :SET THE STACK FOR RETURNING 
MOV (SP)+! (SP) 
RTI ; sRETURN 
: .BYTE O *:STORAGE FOR ASCII DIGIT 
‘BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
SOCNT: :BYTE 0 *:OCTAL DIGIT CO 
SOFILL: .BYTE 0 >3:ZERO FILL SWITCH 
: :NUMBER OF DIGITS TO TYPE 


Se 0 
~SBTTL TTY INPUT ROUTINE 
55 HARARE SE AES HE SEA ESE SEE EAE ESE RHEE EAE AEE EAE HEE EAE SEE SE HEHEHE EE EEE 


J LSB 
STKCNT: . ;;NUMBER OF ITEMS IN QUEUE 
STKGIN: “ORD s NPUT POINTER 
STKQOUT: .W 0 ; OUTPUT POINTER 
S$TKQSRT: .BLKB 1 3; TTY KEYBOARD QUEUE 
STKQEND=. 
VE 
;#TK INITIALIZE ROUTINE 
s#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
: #SET INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 








Rk611 oo CONTROL 
DZR6KB. TTY INPU 


? 
fT 
“ 
os 
io 


8 
88 


~ 
ee 
Oo 
- 


BR SRSRERe 
x Be sueoy 


= 
2 
<£ 
o 
4 


uous 


~ 
io 


cy 


R 


S95 
sD 
= 






042112 


136750 
177600 
000003 


043306 
042122 


001736 
000007 


000176 


000001 





R DIPGNOSTIC 
ROUTINE 
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STKCNT ;;CLEAR COUNT OF ITEMS IN oo. 
HU aa STKQIN ; ; I 


soTKeny zetk VEC 
#200 Satkveces 


CLEAR BO FL AG 
; HENAGLE TTY KEYBOARD INTERRUPT 
TO CALLER 


;#TK SERVICE ROUTI 
seTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
2 READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


T IN THE QUEUE. 
iat THE CHARACTER IS A “CONTROL-C™ (tC) STKINT IS CALLED AND 
; #UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (START) 


3 PICKUP THE — 

its ITA CONTROL Cc? 

A CONTROL <c (tC) 
ARO 


; CONT RESTART 
its IT A CONTROL G? 
;BRANCH IF NO 
3315 SOFT-SWR SELECTED? 
SWR CHANGE 


3318 THE Els FULL? 


3 RING THE Paty BELL 
;CLEAN CHARACTER OFF OF STACK 


iTS IT A ENO 


TY KEYBOARD INTERRUPTS 
tFCLEAN CHAR OFF STACK 


He UNTIL ITS THERE 
+ RAK S Seer 


Nox 


a 


1 A CONTROL o? 
cea TTY KEYBOARD INTERRUPTS 
3 ; COUNT THIS CHARACTER 
U ree CASE? 





et ee ee ee ee 


PPP PP PELL LLLLL 
POR Soo Noun con 





RKG II KG FUNCTIONAL CONTROLLER DIE DIG PGNOSTIC 


042121 
042114 


001140 


000001 


001135 


000091 
136350 






162 
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. But 4$ ;;BRANCH IF Y 
a la BSS FRR Hs 
INC 5 i UPDATE "ie E POINTER 
CMP STKQIN, #STKQEND ;;GO OF 
BNE HERANCH Te 
MOV #STKQSRT, STKQIN ssRESET. THE POINTER 
cs: RTI +s RETURN 





SeOFTUARE SHITCH REGIGTER Cie ROTI rrr 


t SSOFT 
SSROUTIN 
;*¥SERVICE THE ieat FOR CHANGE IN 
*CALL WHEN OPERA 


GI UTINE . 
IS ENTERED FROM THE TRAP HANDLE WILL 
SOF TWARE Barren REGISTER TRAP 


TING IN TTY INTERRUPT MODE. 
—e SELECTED 


écKSUR: CNP aSUREG, SUR 7315 THE 





3 ssEXIT I 
$ e 
(SP) #3 
BIC #40177, (SP) :MAKE IT 7=BIT ASCII 
CMP P), #7 He IT A CONTROL-G? 
BNE 2$ :: IF PUT IT IN THE TTY QUEUE 


NOT 
::AND EXIT 





fj REARRKREL EARLS ERE RELE KARLLL RA LAERERAAEREL RAL E LEAL RREELERAALL EE 

CONTROL IS PASSED TO THIS POINT FROM EITHER THE Try ai NTERRUET SERVICE 

*#ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP C AS A RESULT OF A 
THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


*CONTROL-G BEING TYPED, AND 
is: CMPB TOB, #1 ARE WE RUNNING IN AUTO-MODE? 
BEQ 2g toe ANCH IF 
TST (SP)+ js CLEAR CONTROL -G OFF STACK 
JSR PC, STKINT FLUSH T Y INPUT QUEUE 
CLR tk : s DISABLE ry KEYBOARD INTERRUPTS 
MOVB #1, SINTAG *:SET INTERRUPT MODE INDICATOR 
TYPE  ,$CNTLG 33ECHO THE CONTROL-G (+) 
SGTSWR: TYPE ;; TYPE CURRENT CONTEN iS 
MOV SWREG, -(SP) “SAVE SWREG FOR TYPEOUT 
TYPOC iGo TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE.  ,SMNEW OMPT FOR NEW SWR 
19$: CLR =(SP) 35 CLEAR COUNTER 
CLR -(5P) ;; THE NEW SWR 
73: TSTB = ASTKS ?CHAR THERE? 
BPL g ::IF NOT TRY AGAIN 
MOVB  aSTKB,- (SP) ;;PICK UP CHAR 
BIC aCi??, (SP MAKE IT 7-BIT ASCII 
cHP (SP), 43 $3 18 IT A CONTROL-C? 
TYPE SCNTLC tives ECHO CONTROL~C (10) 
ADD 6. SP i3CLE EAN UP 
CPB SIATAG, Wl 3 3RE Ww KEYBOARD INTERRUPTS? 
MOV #100, 2STKS *:ALLOW TTY KEYBOARD INTERRUPTS 
8S: IMP START CONTROL -C RESTART 
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DIRBKB. PLL TTY INPUT ROUTINE  $E6 cece 
3525 
ani 
Q427 04 1687 poc52s 3g: CMP (SP), #25 ::1S IT A CONTROL-U? 
323 1005 f 3;BRANCH IF NO 
9439 042606 1 042313 TYPE SCNTLU ::YES, ECHO CONTROL-U (fu) 
| $430 Oyeble 70& SC00006 208: add 86. SP ::IGNORE PREVIOUS INPUT 
23 O42616 300737 Be 15$ :3LET’S TRY IT AGAIN 
3433 
8435 042620 921627 OO00IS 108 CMP (SP), a15 23IS IT A «CRD? 
9435 42624 001022 BNE 16S ::BRANCH IF NO 
és bet 005766 000004 TST 4( SP) 3YES, IS IT THE FIRST CHAR? 
Se 093 SEQ 118 ::BRANCH IF YES 
9438 O42634 O1GE7? OOD00S 136276 MOV 2(5P), aSWR ::SAVE NEW SWR 
S635 42 062706 118: Ad 86. SP ::CLEAR UP STACK 
9449 46 104401 O01 14%: T $tRLF ?:ECHO <CR> AND <LF> 
| S441 OMeGS2 123727 001135 00000! CMPB «= sSINTAG, #1 ;;RE-ENABLE TTY KBD INTERRUPTS? 
ote S¥ebbd oi SNE 15$ fc ::BRANCH IF NOT 
> 4 rl 900100 136254 MOV $100, 2$TKS RE-ENABLE TTY KBD INTERRUPTS 
S444 Due p900Ge 18$: RTI : RETURN 
445 042672 004737 041370 16S ISR PC, STYPEC *:ECHO CHAR 
ate pce7e O2e1g2e7 O0cds0 CMP (SP), ::CHAR < 0? 
S44 20 BLT 188 ::BRANCH IF YES 
| S448 042704 O21627 000067 CMP (SP), #67 2:CHAR > 7? 
| $448 O43710 003015 BGT 18S ::BRANCH IF YES 
' $450 O4e712 04 poc060 BIC ~ 860, (SP)+ ::STRIP-OFF ASCII 
| 451 O4e716 908766 oocnde2 TST 2(SP) 21S THIS THE FIRST CHAR 
| S52 De?ee 001 BEQ 175 *:BRANCH IF YES 
| 453 942704 Boes16 ASL (SP) NO, SHIFT PRESENT 
| @ud4 O4e7=6 16 ASL (SP) :: ‘CHAR OVER TO MAKE 
| 455 042730 006316 ASL (SP) +: ROOM FOR NEW ONE. 
| 456 042732 poo002 178: INC 2(SP) >:KEEP COUNT OF CHAR 
| 9457 OM, if 177776 BIS 5g (SP), (SP) ::SET IN NEW CHAR 
/ $458 O04, izist 7 + GET NEX 
| 45S GHe744 105401 oOC127e 18$: TYPE. ,S$QuUES *: TYPE ?<CRD<LF) 
| $460 042750 BR 20$ ;;SIMULATE CONTROL-U 
| S461 .DSABL LSB 
| Bata 
| Saiw $3 EPRESEELEBESFSREEPELSRESELSE REPRE LSS RE RERSEPEERS LASERS SHER ESE 
| ees sATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
«SHE? + ROCHR 3;GET A CHARACTER FROM THE QUEUE 
| Hes + RETURN HERE ::CHARACTER IS ON THE STACK 
ee * :;WITH PARITY BIT STRIPPED OFF 
| oo 
| 47] ‘ 
8472 O4e752 O1IE4G SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC AND 
S473 042754 OLEE6E 00004 oD0002 MOV 4(SP},2°SP) *: THE PS 
74 O4e762 005066 000004 4(5P) :GET READY FOR A CHARACTER 
| G475 bve766 OOS046 CLR -(5P) >:PUT NEW PS ON STACK 
12746 042776 MOV 864, -(SP) *:PUT NEW PC ON STACK 
042774 BaBoDe RTI >:POP NEW PC AND PS 
$478 042776 64S: 
8479 042776 005737 o42112 1S: TST STKCNT ;;WAIT ON A CHARACTER 
9460 043002 001775 BEQ 1$ 
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OCREKS. P11 TTY INPUT I 


: SEG C209 
UT ROUTINE 


TKCNT : sDECREMENT THE COUNTER 
eugs eat ree 735188 000004 nove S51 KG0UT, 4¢SP) $3GET ONE CHARACTER 
aus Baaoes 3535 Bastie 042121 ins STKQOUT, #STKGEND’ ; 010 rr G0 rr OF THE END? 
euse ee pero 042120 o42116° OG aSrkaset, st«o0UT*! RESET THE POINTER 
une mn wwe Oot sea hadeiheniaadisiboeademeutbonsnanasonatiaimmenietaienada 
aus :$THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
Ea CALS mn s;INPUT A STRING FROM THE TTY 
eage SORT i FIRST CHARACTER WILL BE ON THE STACK 
S435 + onscreen tO RNTRRTOR WILL BE A BYTE OF ALL O'S 
a . = ee 
ayse O43042 010346 SRDLIN: Hoy R3 (SP) $3 SAVE, Re ae 
ae pasode | B48 043276 1$: MOV eSTTYIN,R3 :3GET ADRESS, : 
ayaa SM 35553 Buaa0e 38: CMP) saw STTYINSO. RO t BUFFER FUL? 
aca BaSoe he ta BBCHR - *:GO READ ONE CHARACTER FROM THE TTY 
Baspee ere MOVB  (SP)+,(R3) 2:GET C TER 
asus Baabed 2 13 000177 10 CMPB)=s«8# 177, {RD $318 it a RUBOUT 
aen0 ae pasaee heat TST (SP) 2 Is THIS, THE FIRST RUBOUT? 
aoe oe me 000134 043274 rae a. 98 >: TYPE A BACK SLASH 
| 043104 1045401 04 TYPE 9 5 atte) Fi 
9508 O43110 O12716 177777 a HOY 8-1, (SP) $3SET THE RUBO B0U 
Paite 3276 "CNP RB, aSTTYIN STACK EMPTY? 
' 8510 043116 020327 o4 che RS ssBTAGX Ore 
| ais Bato iiss? 043274 MOVE (R3),98 ::SETUP TO TYPEOUT THE DELETED CHAR. 
| 8513 043130 1osas 043274 TYPE 95 $160 a aS as 
aie pasts 005716 S$: TST (SP) j ;RUBOU aut KEY SET? 
| aei8 ait iE 090134 043274 Hove #\,95 *: TYPE A BACK SLASH 
| @518 O431S0 104401 043274 ive 128, + sCLEAR a a 
| gob Paste i i§ ooc02s 73: CMPB «82S, (RB) iT cH RA TER CTRL U? 
| aes Basted rae 043313 PYRE SCNTLU is TYPE A CONTROL | 
| e554 Bisi7e i227 3 oo0g22 8S: HPS #22, (R3) 2315 CHARACTER A “HR”? 
, 925 31 101 BNE 3 ;BRANCH TER 
| 9526 Ba3200 1oSb13 cLRB sHCLEOR, Tie CHARAC aCTE 
| @S_ iss ie Ole? TYPE *STTYIN t' TYPE THE INPUT STRING 
| 33 Oise ooorly BR as 33G0 PICKUP ANOTHER CHACTER 
Baaot bi ooi27e 4S: TYPE -SQUES tiTyPE A’? 
a3 eh ia : BR \§ >:CLEAR THE BUFFER AND LOOP 
: een paoee iiss? 043274 2S: MOVE (R32), 98 ECHO THE CHARACTER 
| aa Ba 133733 atts Onpe bis, (Ra)+ izCHECK FOR, RETURN 
| ees 177777 BM otra) + N (THE 15) 
eae BaaeaB !0S0E3 1 CLRB 1(R3) ;;CLEAR RETUR 
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OZREKB.P12 T ROUTINE 


TTY INPU SES 0210 


9537 O43244 104401 001274 TYPE SLF +; TYPE A LINE FEED 
9538 043250 O0S726 TST {SP)4 *:CLEAN RUSOUT KEY FROM THE STACK 

9539 043252 012603 MOV (SP)+,R3 ::RESTORE R2 

95490 043254 GLIBYE MOV (SP). -(5p) *:ADJUST THE STACK AND PUT ADDRESS OF THE 
954] 043256 O16666 ofc004 oo00D2 MOV u(SP} 2(SP) He FIRST ASCII CHARACTER ON IT 

@542 043264 012766 043276 000004 MOV aSTTYIN, 4(SP) 

9S43 04 900002 RTI 3 ;RETURN 

9544 043274 9g .BYTE 0 >:STORAGE FOR ASCII CHAR. TO TYPE 

9545 043275 000 BYTE 0 :: TERMINATOR 

S546 043276 000010 STTYIN: .BLKB 8. :tRESERVE 8 BYTES FOR TTY INPUT 

9547 0433068 O41536 o0so15 009 $CNTLC: .ASCIZ /#C/<15><12>  $;CONTROL “C” 

esug 043313 136 006525 000012 SCNTLU: .ASCIZ /tus<iS><le>  ::CONTROL “U™ 

9545 043320 043536 O05015 000 SCNTLG: .ASCIZ /#G/<15><1l2>  3;CONTROL “G” 

8550 043325 C15 OS14i2 051127 SMSWR: .ASCIZ <15><12>/SUR = / 

9551 043332 036440 00040 

8552 043336 O20040 O42516 020127 SMNEW: .ASCIZ / NEW = / 

9553 043344 620075 000 

9e=5 043350 EVEN 

gsés “SBTTL READ AN OCTAL NUMBER FROM THE TTY 

eee oS ESHARARRELEFSELESELA LEA EEE RA SEA LSE RAPEASSFEALSEKL LEE AE SAE RELL EFES 


&THIS ROUTINE WELL READ AN OCTAL (ASCIY) NUMBER FROM THE TTY AND 


gees >#CHANGE IT A 
8560 *#THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
9561 ?#0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
SSé2 **FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
eee seen BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
SSé5 tH. CT ;;READ AN OCTAL NUMBER 
S566 * RETURN HERE *:LOW ORDER BITS ARE ON TOP OF THE STACK 
9567 + >:HIGH ORDER BITS ARE IN SHIOCT 
cere 043350 011646 SRDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
8570 043352 O16666 cO0004 oD000e MOV 4(SP} 2(SP) >: INPUT NUMBER 
9571 043360 010046 MOV RO, -(SP) He RO ON STACK 
872 042362 O10146 MOV R1,-(SP) ::PUSH RI ON STACK 
8573 043364 O10246 MOV Re, -(SP) *:PUSH Re ON STACK 
8574 043366 104411 1$: ROLIN >:READ AN ASCIZ LINE 
9575 04 012600 MOV (SP)+,RO +:GET ADDRESS OF 1ST CHARACTER 
276 04 010037 043476 MOV RO, S$ ::AND SAVE IT 

O47 005001 CLR Rl *:CLEAR DATA WORD 
ae7g pasape seer 2s: MOVB  (RO)+,-(SP) ;:PICKUP THIS CHARACTER 
$580 043404 001420 BEQ 3$ *:IF ZERO GET OUT 
9581 O43406 122716 OO00060 CMPB s«#”0, (SP) MAKE SURE THIS CHARACTER 
eee W3412 O0030e6 BGT 4§ +15 AN OCTAL DIGIT 
Be 414 e076 000067 CMPB sg, (SP) 

b BLT =o 
sses 0434 Boes01 ASL Ri 23#2 
S586 O43424 102 ROL Re 
9587 bisHeb 006301 ASL RI 5384 
9&8 30 006102 ROL Re ‘s 
aeag ae ppeige Rot ORS 
e691 04 042716 177770 BIC #1C7, (SP) s;STRIP THE ASCII JUNK 
gS2 o43442 01 ADD (SP)+,R1 *:ADD IN THIS DIGIT 


















READ AN OCTAL NUMBER FROM THE T SéQ C211 
$593 ONsu+4 000756 BR 
9534 C4344 26 3$: TST 


é Pen TERMINA 
9595S O434S0 010166 000012 MOV S 

( 

{ 

( 


ssl 
3; CLEAN ob, a FROM STACK 
;;SAVE THE RESUL 

at :;POP STACK INTO Re 


Ri ;;POP STACK INTO R1 
+,RO ;;POP STACK INTO RO 


9596 O434S54 010237 0423506 MOV 


oo0002 RTI : :RETURN 
005766 u§: TST (S !:CLEAN PARTIAL FROM STACK 
10S01 (R 3;SET A TERMINATOR 
8603 O43474 104401 ns TYPE : >: TYPE UP THRU THE BAD CHAR. 
104401 001272 P TYPE SQUES 5377" "CR" § “LE 
Ben0eS 


BR :: TRY AGAIN 
SHIOCT: .WORD 0 *:HIGH ORDER BITS GO HERE 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 


cence 
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OZREKB.P11 ry 

| 

| 


3610 fp RERLELLELAESESRELEL SEALE ER AL LAS ELELELELELELELELLLELELAFLAL ALES 
9611 #SAVE RO-RS 
%le 3 CALL: 
9613 1% SAVREG 
eels 3 SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
9616 3 #TOP---(416) 
$617 # +2---(4]9) 
3618 3% +4---R5 
9619 2 +6---Ri4 
9620 # +9---R3 
92! :#+10---R2 
a i 
Se24 
8625 043510 SSAVREG: 
9626 643510 O10045 MOV RO,-(SP) ;;PUSH RO ON STACK 
9627 043512 O1O146E MOV Ri; -(5P) >:PUSH R1 ON STACK 
9628 043514 O10246 MOV Re, -(SP) ::PUSH Re ON STACK 
9629 043516 O10346 MOV R3,-(SP) *:PUSH R3 ON STACK 
9630 043520 O10446 MOV RY, -(5P) :PUSH RY ON STACK 
9631 043522 O10S46 MOV RS. -(SP) ::PUSH RS ON STACK 
932 psec DIbeHe oo0022 MOV 22lSP),=(SP) isSAVE BS OF MAIN FLOW 
933 04 16646 000022 MOV 22(5P),-(5P) 3:SAVE PC OF MAIN 
9634 043534 O16E46 900022 MOV 22(5P),-(SP) 3:SAVE PS OF CALL 
9635 O43540 OIGE46 000022 MOV 2e(SP);-(5P) 3:SAVE PC OF CALL 
9636 042544 00002 RTI 

e39 * ;#RESTORE RO-RS 

| 9639 s#CALL: 

| 9640 * RESREG 

| 9641 O43S46 SRESREG: 

| 9642 bseue 012666 o00022 MO 

| 9643 04 Oleb66 o00022 

| $644 043556 Ole666 0000c2 MOV 

| 645 O43562 Ole666 MOV 
aeHe 043566 Oieb0s MOV 
S647 043570 O1 MOV 
948 043572 012603 MOV 


i 


£ 


BRE RR UPR HVEMe tL MMMM Maa Shea AS Ana 


RKG}1 FUNCTIONAL _¢ 


le : 
| 
| 
| 


043762 


O1seor 
pisses 


Ob om 
©OQoru 
—O-3 
aaa4 


Fire 


ye 


See 


aes 


Be 
Rian 


010046 


043604 
000340 


047520 


000024 
000826 


000024 


co0024 
000026 


042527 
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ad (SP)+,Re ;;POP STACK INTO Re 
MOV (5P)+/RI ;;POP STACK INTO R1 

wy (SP)+,RO ;;POP STACK INTO RO 
-SSTTL POWER DOWN AND UP ROUTINES 


eee Etaas Mii iene cree ce aera ee ee 


BOWER DOuN ROU UTINE 

dPURON: #SILLUP, D#PWRVEC ;-SET FOR FAST UP 
NOV $0 38 S#PURVECHE j BRIO: 
MOV He PUSH ‘Po ON STACK 
MOV Rl’ (SP) ;:PUSH R1 ON STACK 
MOV Re, -(SP) ;;PUSH ON STACK 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV RY) (SP) *:PUSH RY ON STACK 
MOV RS,-(SP) ;;PUSH RS ON STAC 
MOV aSUR, -(SP) *:PUSH JSWR ON STACK 
MOV SP, SSAVRE SAVE SP 
HOV, SSPURUP  SePURVEC >:SET UP VECTOR 
BR “2 ;;HANG UP 


5g RHRALELERAALLLE ELE LE EAELARELALELERELELALRLALLAL ALLL LLLALL ALLE LSE 
*POWER UP ROUTINE 
SPWRUP: MOV SSILLUP, D8PWRVEC ; iSET_E FOR FAST DOWN 


MOV S58VR, SP ;;GET SP 
CLR SA ;;WAIT LOOP FOR THE TTY 
1S: INC SSAVRE “WAIT FOR THE INC 
BNE 1$ itor WORD 
MOV (SP)+, ISWR POP STACK INTO a@SWR 
MOV (5P)+/RS5 *:POP STACK INTO RS 
MOV (SP)+°R4 *:POP STACK INTO RY 
MOV (5P)+°R3 *:POP STACK INTO R3 
MOV (SP)+;Re *:POP STACK INTO Re 
MOV (SP)+°RI *:POP STACK INTO RI 
MOV (5P)+'RO POP STACK ante RO 
MOV #SPWRON, JUPWRVEC':;SET UP THE POWER DOWN VECTOR 
MOV #340, O8PWRVEC+2 ;:PRIO:7 
TYPE *REPORT THE POWER FAILURE 
SPURNG: .WORD  SPOWER *:POWER FAIL MESSAGE POINTER 
SILLUP: HALT 3;THE POWER UP SEQUENCE WAS STARTED 
2 :: BEFORE THE uPOWER DOWN WAS COMPLETE 


ssaves: 0 ;;PUT THE SP HE 
OWER: .ASCIZ ¢15)<12>"POWER™ 


-EVEN 
-SBTTL TRAP DECODER 


Sap een oe gre tg ee ge gre ae ggg es 
SATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF NSTRUCTION 
; #AND Hebe TO INDEX THROUGH THE TRAP TAB PE FOR TH ee TARTING ADDRESS 
;#0OF THE DESIRED ROUTINE. THEN USING THe RODRESS OBTAINED IT WILL 
;*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) ;;SAVE RO 


SEG Cele 











an 
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ii TRAP BEtObER . 


DZRSKB SEO 0213 

S70S 043764 016600 o00002 MOV 2(SP),RO :;GET TRAP ADDRESS 

2708 4 005740 TST =(RO) BACKUP BY 2 : 

707 O43 111000 MOVB (RO), RO *:GET RIGHT BYTE OF TRAP 

$798 o43774 006300 ASL RO POSITION FOR INDEXING 

$708 043776 O16000 O44O16 MOV STRPAD(RO),RO ::INDEX TO TABLE 
| o10 o44o02 00200 RTS RO :G0 TO ROUTINE 

$71 

ae s;THIS IS USE TO HANDLE THE “GETPRI” MACRO 

8715 O44004 O1I646 STRAP2: MOV (SP). -(SP) ;;MOVE-THE PC DOWN 

S716 O44006 916656 oc00004 oDD002 MOV 4(SP} 2(SP) MOVE THE PSW DOWN 

pa 044014 o0c002 RTI : RESTORE THE PSW 
| 9719 .SBTTL TRAP TABLE 
a5 ? *THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
eee *#BY THE “TRAP” INSTRUCTION. 

erst ; ROUTINE 
| §725 O44016 O44004 $TRPAD: . WORD pe 
| S727 OHHde0 041156 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 

$728 O44022 041710 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
_ $729 044024 041664 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
9730 O44026 041724 STYPON 3;CALL=TYPON  TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
| $731 O44030 041440 STYPDS ;:CALL=TYPDS | TRAP+S(1O440S) TYPE DECIMAL NUMBER (WITH SIGN) 
a 944032 o42500 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 

aoe 044034 042410 SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 

$736 044036 O42752 SROCHR ;:CALL=RDCHR § TRAP+10(104410) TTY IN CHARACTER ROUTINE 

8737 O44040 O4304e SRDLIN 3:CALL=RDLIN § TRAP+11(104411) TTY TYPEIN STRING ROUTINE 

$732 O44042 043350 T $:CALL=RDOCT | TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
«+9735 OHNO 043510 SSAVREG ;:CALL= G TRAP+13(104413) SA ROUTINE 
| aout peeps ast . ticorrs TRAPHTECioTe) PEED og find 

a745 paapee O3s4452 Sctntt beta PSSINIT Thapstectouuie, iN TAL 7 Siasys 4 

8743 O440S4 023364 *:CALL=T TRAP+17( 104417) L 11 FOR OPERATI 

9744 O440S6 O33446 ??CALL=TGE TRAP+20(104420) GET RK611 REGISTERS 

Soup Dies Bacup CHKME, SSCACCSTCHKME  TRAPSEECIDNUSS) CHECK OPERATION FOR EXPEETED ERRORS 

a paaiep WAT jiCALLSTHRTIG TRAPFERCLONES) MALT 18 HS 

ih 4 4 ees = 

gous atta neat ATS emer TRAP+ (tBuuse) Watt 4g Ne 

$750 044072 033130 IWAT64Y 3;CALL=TWATEY  TRAP+26(104426) WAIT 64 MS 

ple OHHO7s 033120 IWATSO ;;CALL=TWATSO TRAP+27(104427) WAIT BO MS 

03311 IWATS6 ::CALL=TWAT96  TRAP+30(104430) WAIT 96 MS 

$753 044100 033100 WWOT112 ::CALL=TWATil2 TRAP+31(104431) WAIT ile MS 

$754 p44 102 033070 TWATI28 ;;CALL=TWATIC TRAP+ ioe) WAIT 128 MS 

9755 104 TWATI44 $:CALL=TWATISY TRAP+33(104433) WAIT 144 MS 

S756 O44 033050 IWATIS9 ::CALL=TWATISS TRAP+34( 104434) WAIT 160 MS 

$757 bt 10 3040 IWATIS :CALL=TWATIS | TRAP+35(10443S) WAIT FOR 1 SECOND 

9758 lic 033030 IWAT2S $;CALL=TWAT2S  TRAP+36(104436) WAIT FOR 2 SECONDS 

9759 044114 033010 IWATSS ::CALL=TWAT@S | TRAP+37(104437) WAIT FOR 8 SECONDS 

8760 044116 033020 IWATIM 3:CALL=TWATIM TRAP+40(104440) WAIT FOR 1 MIN 





me ee ee oe re ee ee re 
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OZREKB.P12 TRAP TABLE 


$761 009102 STERM=. -S/RPAD 


SEG 0214 
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DZR6 TTERNS 


KB.Pil DATA PA SEG 0215 


9762 .SBTTL DATA PATTERNS 
9763 :DATA PATTERN 1 
are : PATTERN IS ALL ZEROS 
2066 ;DATA PATTERN 2 
: HI-LO FREQ. MIX 
8768 044120 PaTOe: 
$769 044120 177777 177777 
9770 O44l22 177777 177777 
9771 044124 177777 177777 
$772 O441le6 052525 052525 
8773 044130 052525 052525 
9774 O44132 052525 052525 
9775 oul 34 177777 127077 
a558 paaiap Aeoeee Ae5Go6 
9778 O4414e 052525 052525 
8779 O44144 177777 177777 
9780 O44146 052525 052525 
ve Bales tree ies 
8783 O44154 172765 172765 
ares O44156 172765 172765 
| 9786 sDATA PATERN 3 
9787 : HI FREQ. PHASE MIX 
9788 044160 PATO3: 
$789 O44160 ooD000 ~"  gooooo 
$790 o44162 000000 000000 
$791 044164 900000 o00000 
9792 O441E6 177777 177777 
8793 044170 177777 177777 
| 9794 944172 17002 177777 
| §79S 044174 docoo0 
| §796 044176 000000 000000 
| 9797 O44200 177777 1 
| $798 Q44e02 177777 177777 
| 9799 O44204 000000 d00000 
9800 O44206 177777 177777 
9801 O44210 O00000 do0000 
9802 O44el2 irre? 177777 
9803 O44214 000000 
2804 O44216 177777 177777 
| 9806 sDATA PATTERN 4 
| 9807 : LO FREQ. PHASE MIX 
3208 iat PATOY: 
| 9810 5S pesese 052525 
| $812 O44ee4 052525 
| @812 O44226 125252 125252 
| 9813 O44230 125252 125252 
| 9814 Ieee 1ebebe 
| §B15 O44e34 052525 052525 
| 9816 052525 052525 
| 9817 O44240 ! 125252 
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DZR6KB.P11 DATA PATTERNS SEG 0216 


o44e4e 125252 125252 
O44e44 







9824 O44eS6 leSeSe leSeSe 


3826 ;DATA PATTERN S 
MAX PRECOMP. PHASE MIX 
9828 O44260 datos: 











©8599 044260 133333 133333 
9830 O44262 066666 
9832 
9833 
9834 
9835 
9836 
9837 
9838 
9839 
9840 
9841 
9g42 
9843 
9844 
9845 
9845 sDATA PATTERN 6& 
9847 ROTATING BOUNDARY PULSE PRECOMP. 
9848 o44320 batos: 
9849 044320 121105 121105 
8850 O44322 150442 150442 
9851 044304 Ob4e21 064221 
9852 044326 132110 132110 
9853 044330 OSS5044 osso44 
9854 044332 Oeb42e2 026422 
9855 044334 Olaell Oi3eit 
9856 044336 105504 105504 
9857 O44340 D42b4e2 
9858 044342 21321 021321 
9659 044344 110550 110550 
9860 044346 264 
$2861 044350 132 022132 
38b¢ 044352 O1105S 

044354 104426 104426 
3864 044356 042213 042213 
S866 zDATA PATTERN 7 
9867 FIELD OF ALL ONES 
See BE S aaa PATTERN 10 
9870 ROTATING CELL PULSE PRECOMP. 
$871 44360 bario: 


9872 O44360 O264S5 0264SS 
9873 O44362 ilseeb. 113226 





9874 044364 045513 045513 
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DZREKB. BY para ROttER.S SEQ 0217 
ee fentt (ee ee 
a887 O44416 OSS132 055132 
9889 sDATA PATTERN 11 
9890 SHIFTED 1 IN A FIELD OF ZEROS 
9891 o44420 bari: 
9892 044420 000001 000001 
9893 oO44422 OD0002 oo000e2 
9894 o44424 900004 000004 
apse paaase pppose nee Nae 
9897 O44432 000040 
9898 044434 000100 000100 
aoa  D4NdaB va 
9301 o44442 oo1000 001000 
gso2  o44444 O02009 o2005 
aa04 pagacs 010000 010000 
990s o444se o20000 020000 
9906 oO44454 940000 040000 
$304 wbtehnce ae sane 
9909 ;DATA PATTERN 12 
9910 SHIFTED O IN A FIELD OF ONES 
9911 O444E0 batia: 
9912 O44s460 177776 ; 177776 
9913 O44462 177775 77775 
9914 04 177773 
9915 177767 177767 
9916 O44470 177757 
6917 O44472 177737 177737 
9918 O44474 177677 177677 
9919 gu? 177577 177577 
9920 177377 177377 
9921 O44S02 176777 176777 
e366 O44504 175777 175777 
044506 172777 173777 
O44510 167777 167777 
O44S12 157777 157777 
9926 14 137777 137777 
27 O44516 077777 77 





9929 ;DATA PATTERN 13 


.BsB 
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OZR&KB.P11 ERNS 


017777 
037777 037777 


KB DATA PATT SEG 0218 
9930 : ALTERNATING O-1 
9931 o44S20 PaATI3: 
gaa3 guuese oessee pesese 
9934 Bie 052525 
9935 NESE 052525 052525 
9936 30 952525 952525 
O44532 O52 052525 
9938 044534 052525 
9939 OH 052525 05 
9840 052525 052525 
9941 o4usue 052525 
9942 052525 052525 
9943 O44s4_ 052525 052525 
944 052525 052525 
gous 04 052525 052525 
9946 O445S54 052525 052525 
a347 O44sS6 052525 os . 
9949 sDATA PATTERN 14 
9950 : ALTERNATING 1-0 
8951 O44SE0 PATI4: 
9952 044560 125252 125252 
9953 o44s6e 125252 le5252 
9954 o44s64 125250 125252 
9955 O44566 125252 
99568 044570 125252 125252 
9957 o44572 125252 125252 
9958 944574 125252 125252 
| 9959 O44576 125252 125252 
9960 O44600 125252 25252 
9961 O44602 125252 125252 
O44604 125252 125252 
O44606 125252 125252 
9964 O44610 125252 125252 
9965 O4461l2 125252 125252 
9966 O44614 125252 125252 
9967 O44616 125252 
age ace ;DATA PATTERN 15 
9970 : SHIFTING ZEROS AND ONES 
9971 O44620 PATIS: 
| 9972 O44620 oD0001 000001 
| $973 O44e22 000003 000003 
9974 044624 000007 000007 
| 9975 O44626 000017 000017 
044630 O00037 000037 
| 9977 Q44b32 000077 
tama 900177 000177 
| g 636 000377 000377 
| O44640 000777 000777 
| 9981 OW4e4e 001777 001777 
| 
| 









RK611 FUNCTIONAL CONTROLLE 
DZR&KB.P11 DATA PATTE 


9986 O846S4 077777 977777 
7 O84656 177777 177777 


9989 :DATA PATTERN 16 
90 : COMPOSITE ROTATING 
999! O446E0 PATIG: 
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9992 O44660 972307 072307 
9993 O44EG2 135143 135143 
9954 O44G64 156461 156461 
9995 OU4EEE 167230 167230 

044670 073514 073514 
9997 Q4u4E7e O35646 035646 
9998 044674 Olé7e3 016723 
9999 044676 107251 107351 
900 944700 143564 143564 
10001 O44702 Obl672 061672 
1 044704 030735 630735 
10003 044706 114356 114356 
10904 O44710 O4616 046167 
19005 O44712 123073 123073 
10006 O44714 151453 151453 


10007 O44716 164616 164616 


OZF6K 


B.P1i 
1001 
0013 
o4472e 
4726 
044732 
044736 
O44740 
o4474 
| 
| 
| 
| 
| 
| 
} 
| 
| 


10009 
0010 


oo 
Ooo 


oitainitte totais 


Beaae ts 


8 
BBR 


044752 


RkK611 4:7 beeper CONTROLLER DIAGNOSTIC wie 7(732) 
FIELDS AND VARIABLES FOR OPERATION CHECKING 


024000 
177400 


000070 


000000 
000009 
000000 
000000 
000000 
000000 


pon 


000920 
000040 


00 
000040 
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.SBTTL_ F{ELOS AND VARIABLES FOR OPERATION CHECKING 


CSIERBIT=24000 
CS2ERBIT=177400 


DSERSIT=70 


REALSEC: . WORD 
GRP IER: 


P*) 
m 
D 
fan 
= 
oO 
= 
oO 
2) 
o 
oO AB800000 200000 


WORD 

SPARERR=B1TO 
SKIERR= BIT1 
NXFERR= 
DRPARERR=2173 


GRP2ER: .WORD 


HVRC 5 
BSERR= &IT6 
GRPSER: Fh 


ike ERROR Bite SPAR & CTO 
3 DL » WCE, UPE, NED, NEM 
S.UFE. 


tpg ERROR BITS 
: SPDLSS, DROT, ACLO 


; EXP RTER WORD COUNT coy EN) 
sEXP CTED UPPER BA (COMPUTED) 
PECTED BUS ato, (COMPUTED) 
SEXPECT ED CYLINDER (COMPUTED) 
EXPECTED SECTOR (COMPUTED) 
sEXPECTED TRACK (COMPUTED) 


: WORD COUNT AT END OF OPERATION 
REAL UPPER BA 

: BU ie 

; 
SECTOR 


;GROUP 1 ERROR FIELDS 

a rect DETECTED DRIVE BUS PARITY ERR 
;NON-EXECUTABLE DRIVE FUNCTION 

; DRIVE DETECTED DRIVE BUS PARITY ERROR 


E TRACK ERROR 
;CYLINDER OVER FLOW ERROR 
;ILLEGAL DISK ADDRESS ERROR 
; A ERR ta 


‘DRIVE UNSAFE E 
;CERR BUT NO ERROR SET ERROR 


tage of ERROR FIELD 
RROR 


;WRI 

;DATA LATE ERROR 

j OPERATION INCOMPLETE ERROR 
HEADER VRC ERROR 

BAD SECTOR ERROR 


; GROUP 3_ERROR FIELD 
;NON-EXISTANT DRIVE ERROR 
CONTROLLER TIME OUT ERROR 


IELD E 
Ponta al: DRIVE SELECT ERROR 
tNONSEXISTANT MEMORY ERROR 


SEG 0220 
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DZREKB.PLI FIELDS AND VARIABLES FOR OPERATION CHECKING 

LO0ES 990190 UPERR= BITS SUNIBUS PARITY ERROR 
10256 o00200 ILFERR= BIT tILLEGAL FUNCTION ERROR. 
1D068 o4475— oOCOD0C GREYER: .WORD 0 sGROUP 4 ERROR FIELD 
10059 90009 WiCERR= BITO tHORD COUNT ERROR FLAG 
10070 eat USAERR: BITI 'UPPER BA ERROR 

10071 500004 RR= BIT2 “BUS ADDRESS ERROR FLAG 
ipSes eee FxceRe: Bits STRACK ADDRESS ERROR FLAG 
iBor3 BepeSS cpCERRS Bite 'SECTOR ADDRESS ERROR FLAG 
1B 44750 GRPYMS: .WORD EMIO 

i538 7E2 Renesas “WORD EMIIA 

ingore «O44764 Os0E7s “WORD EMI 

10079 O447665 “WORD EMI2 

10089 O44770 OS0732 WORD EMIS 

1ooe Owi77e OS0rb2 EN14 

ips MNT? OS1014 GRP2MS: .WORD EMIS 

1p MAS ate “HRD at 

10086 eared 21103 “WORD EMIS 

10087 O45004 0511 ; EM19 

| T0088 oO45006 O511=2 “WORD EMeO 

| 10089 O45010 051176 “WORD M21 

| HOS OwsoIe OBleze “WORD E22 

1008 14 951242 GRPOMS: .WORD M23 

| HDR pisos osiex2 ioe Eng 

| 100% O45020 051267 “WORD EMS 

19085 Oye 051303 “WORD NEG 

| HS yb OB IaI . EMS? 

| 19067 051342 “WORD EM28 

| 19038 ONE030 051355 “WORD EMe9 

| 10190 o¥so32 051376 GRPIMS: .HORD N30 

«TOIL 450% 051451 “4 EN! 

| i6is Bisoag “CEL WORD EMSS 

| 40} 051 “WORD _EM34 

| 10105 O45044 051612 “WORD EMSS 

| «1185 Bleoee Betess WORD EUS 

| iGibe Dustee Be ORD ENG 

met 051705 “WORD £M39 

| 10110 045056 051727 “WORD EMYO 

| HLL 946060 05176) “WORD a 

iptte para peshoe “ORD M4 

| 10114 O45066 052067 "WORD EMY4 

| 10115 046070 052104 "WORD EMHS 

' $0117 o4so72 oD0000 GPSUMF: .WORD 0 ;GROUP ERROR SUMMARY FLAGS 

| 3o11B 1 GRP1ST= BITO :GROUP 1 ERROR SET 

| Ior18 GRP2ST= BIT! ‘GROUP 2 ERROR SET 
10120 000004 GRPSST= BIT? ‘GROUP 3 ERROR SET 


et we + wee Be 


ue 
Sl unr = 


w 


0-20 + B-= 6 < b-< 9 -< b= » <9 -- p 2 Bp 
7 


B-* O-2 b -2 B~2 © = B= & -2 0-2 Os 2 B= = B= OB 2 & = b= -2 2 F229 & 2 > Oo 9-0 B-2 2 B-2 << HB + BH H- 2 9-H = Ho 





— 
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-Pil FIELDS AND VARIABLES FOR OPERATION CHECKING SES Oe2e 
090919 GPINR= B8IT3 ;GROUP 1 ERROR NOT RECEIVED 
000929 GPeNR= BITY ;GROUP 2 ERROR NOT RECEIVED 
DOQO40 GPSNR= BITS ; GROUP — NOT RECEIVED 
040000 ORSTER= BIT14 ERROR N GETTING DRIVE STPTUS FLAG. 
1c0cc0 REPNR= BITIS ;REPORTING NOT RECEIVED SWITCH 
-SETTL TABLE OF OPERATION MESSAGE ADDRESS 
:% THIS TABLE CONTAINS THE ADDRESS OF ASCIZ FIELDS THAT ARE 
3* USED IN REPORTING TO IDENTIFY THE OPERATION BEING PERFORMED. 
O45074 045134 CMNDLB: .WORD OPEROO ;ADDRESS OF SELECT MESSAGE 
D4S076 Pipi WORD  OPERO2 : PACK_ACK 
100 lée -WORD OPEROY : fea no CLEAR 
102 045176 -WORD OPER ; 
104 aries OPER1O : START a IMOLE 
106 3 WO OPERIe : 8 il 
110 045237 -WORD OPERI4 ; 
ile O45e46 -WORD OPERIE ; aa 
114 045253 -WORD OPE : READ DATA 
118 045265 -WORD OPE : WRITE DATA 
120 045300 -WORD OPERCY i AD HEADE 
lee 045315 -WORD OPE : TE HEADE: 
ist 045332 -WORD OPER3O ; WRITE CHECK 
1e6 045347 -WORD OPER32 ; ILLEGAL OPERATION 33 
130 wees -WORD OPERSY ; 38 
ise O4S41 -WORD OPER3E ; 37 


.SBTTL OPERATION MESSAGES 


HAAR  hovhduarondicnndnonn 


22R 2 
a 
£ 


134 051104 053111 020105 OPEROO: .ASCIZ /DRIVE SELECT/ 
ic ie 042514 052103 

151 120 041501 O20113 OPEROe: .ASCIZ /PACK ACK/ 
17% 041501 00113 
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~“ 
Zz 
Oo 
me 
-— 
«x 
Q 
lal 
a 
Oo m a 
zi z 5 
5 te = z 
& ui g 4 
= - la) 
= oO a | 
=. Oo % x 
ti a } oad oo [= | 
© ~~ me > af ed 
w aQ oOo w 
« - me = 
4 o- ta) — 2 
Qe ¢ w te 9 oO ~ 
- w Gi 5S 
Qa Qa. wo rw 
wm Oo Oo = 
a a a - « 
ta Oo ae = w « 
4 i) a [vv) -~ — ty 
tu a 4 a ‘Qa 
oO tal Q - Oo 
tu ta) tad w 
us a © ic \y bos 
a g S i i 2 = 
a. M< tas & oO J Oo 
15 % Y oe @ S 
o< M 
oO tal — tas ta) 
mm x ~ 
Os a ry 4 4 =e = 
- oO x & a = oO 
© a ta ta tas Qa es 
wD > > > — -— 
re -« a & @ i a 
3 8 > 2 
2 Fe 4! Fs z 
== oe - - vt) 
Lo ] ~“ ™%, ~“ “ “Nn “N 
~~ fa ™N ™m ™ ™N Ne 
tj oe + oe oe o4 oo 
r 3 2 2 f 2 3 
~ . a . oe td 
ba? | 
ee 
: : 2 
2 


aus Uy 


Siatasstehcl coleman Gta Gael Girma glen 
Sabeciatimsscaton Qisaend Ol inelenarianed eittas 
Sam erasamaaaeas Tiaeeal Ceamcnenetans? Label 
FO SES TE SS 
TTS EA RL RGLA GES WQOUGSHASRRUARATESESSS 


Sa Ieee eee hea heat Ree hea hee Near ee Kem Deal otk Deere Ke, Teste, Teams, Tene, eae Te, re oe ek To Toe ee ee oe Te Te ee Te ae ne ee ee ee ee ee ee ee ae ene ee ee ee ee eee ae re ak en ne ee oe oe 


DHCO38 
101 OHO0S: 
DHOCE 


042516 
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OZREKB.Pi1 





i ne = ne te ee re eee em ee a ee 
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DATA HEADERS FOR ERROR REPORTS 


RELL FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(732) 


DZREKB.P1) 





/EXPTO §=« IS 


eR3CIZ 


OS2i2e0 020104 OHOI0A: 


‘READ DATA WITH FORCED CYLINDER OVERFLOW/ 


ee o20104 DHO108: .ASCIZ 


a 


ESAOROBLOaSE 


2 


cP 
88 


/NOT RESET AS A RESULT OF/ 


-ASCIZ /NOT SET AS A RESULT OF/ 


-ASCIZ 


o51430 DHOL1: 
DHO12 


Sree gas 


ie 


aoe ryruTe 


440 


aia Miata 
cami 


/SET AS A RESULT OF/ 


-ASCIZ 


O4YO44O DHOi3: 
an Os 


sa 


/RESET AS A RESULT OF/ 


-ASCIZ 


3 
Ze 
i 


peas 7 


Base BeSe 


ne 


Paul 
a 


ibe toes 


Ses aE 
& 


——4) 


66S 


P-Reee Rese 
aes ie 


ASRSABANIREnghenaRnemen Eee 


WORD NUM/ 


-ASCIZ /GCOD BAD 


DHOLS: 


& 
uz 


8 
g 
s 
Z 
a 
Z 
2 
- 
i 
be 
w 
& 
4 
5 
& 
3 
g 


-ASCIZ 


DHO1E: 


[=] 


ve Gs 


S Ro 


gj aseecrue ge Garey 
ae teats 


a spuianucaeess ie 
: aiaateaaateaeaniert 


STESTN, SERRPC, ORVNUM, T.CS1,7.CS2,7.0S,7.ER, 7. ASOF, 7.MRI 


ui 
re 
re) 
wi 
ae 
ee > 
“Bee i 
Qa ta) a 
eT 
te le A 
7 
~ fe) se & 
-_ “4 - 2 
= ae 
weg, sig AS fe @ 
on om Kee} +H 4 
pant = seas 8 


Seas 
Pe eints aes 


ossee0 
Oss2e0 001302 001116 


Sea aN a ea 


Sle eee Reet Ret Rear Kee Ree Keath Kee Keen Reem eee Ate Koen Dee Kot Rae ee Kee Deel ne rte Re De Tee De ee Teen Tree re Tene ee ak ne Tene ee ae ae ee ae ee Te ene ee en ee ee ee ee ee ee ee ee! 


mm ne ee ee +e 


ne ee se ae ee re een we e+ 


SEG 0237 


SREGIO, SREGI1, SREG12, SREGI3, SREGIY, SREGIS, SREGIG, SREGI7 





é 
ty) £ig 
f 2 ee 
: Bo OBS 88 = 
® g gg eRe gee 
7 ee 
26 888 8 88 33 
ao ge 89 Saeoaes 8 BBE €8 €HHSR8 Baz 
3 O00 B888888ees8s8 
== oF 2 — » . 
| 2 it Soe aSaS = ae 3 ie 28 ae wat Bea a 
c; HORmonnaiaed Ga ees GE aes Me 
ae ERE RE ADELA EERETEEEE TSUNEO EE : 








ae were Sn wn ere ee we ee 


a ee ro 0 ern ee te es rn 0 20 YES EES 


10388 
10989 


~ 


vYERE eer 


Piette cst 


QOOOO0O0O0000 
= — 0 0 0 oo he 
WOnNWUILS WHO 


RES 


i 


= a bs Bae Be Bae ban Oe Bae Ba Be Pe Ot ne Pe Bae Bo Hue Pe hae D8 eh m0 Pe ho Hann ne Pe fe Bat Bae Penn ne Pe Paes Hae me Hue Bue Pune Hue Pe fo h-2 =o fo Po Bo he 
PRS AMIMA INNA MUNIN YY 


0+ 0-2 O* B+ b= 6 8 = & = B= HO = Oo & + 0 -= 2 0 Bs § 2 Oo Fb = 2 §--2 B+ Ob = = > < O-= & = & = &  § << 9-2 8-2 0 B29 Ho ed 2H 2p =H © 


4 
w 


i 
' 


RK611_ FUNCTIONAL 
OZREKB.Pi1 — 


ossu34 
055436 


053744 


8 88 : 888 8888 8888 88888 8888 


CONTROLLER DIAGNOSTIC MACY11 27(732) O1-0CT-7& 10:50 PAGE 205 
DATA FORMATS FOR ERROR REPORTS 


DF OOS: 


OFOOGA: . 


DFCO7: 


DFOO7A: : WORD 


OFO10: 


DFOLOA: . WORD 


DFOLI: 


DFOLIA: :WORD 


OFOLS: 


WORD pHodzs 
“WO P o2c 


. RO 
‘BYTE 10,0 
“WO DHOOSA 











SEG 0238 


HOOD 


,0 


™ 

~< 

— 

m 
oouW oO 

oO 


a 
ee 


w 
< 
4 
m 
oeo£ 
oO 


DOEwew 

& Aaa 

eaPee 
fB 


Oo oOo oRo oO 
ras 
S 3 







Ses 
oR° oOo 
8 8 


OOo 
bs 
w 


wee 
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poReke Pri ATA FORRATS #5 ERROR REPOR : 


SEG 0239 


/ 11044 oss7ee2 pooose 9524: .BLKW 5S2 
| y104s5 oSe04%6 d002 PATCH: .BLKW 200 
| 11046 O58446 0901000 IBUFF: .BLKW 1000 
/ 11047 O&0446 601000 OBUFF: .BLKW 1000 
| 11048 00009! SEND 

! 


HO3 
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7(7, 
CROSS REFERENCE TABLE -- USER SYMBO 


1 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 2 


1 
OZREKB.P11 


é 








o 
3 
o 
23 
~ o 
giz gas poe Ooa ana aOO RARE ae Rene 


Tak RASS SRR a cin aaa So aC ca 





taaiaNe 


SS 


PREEEE 


nen an a en ee ee | ee 


i eRe 


N 
- 


SRE Soe ee 
cepa tect 


me ne ee 





RKS11 on CONTROLLER DIAGNOSTIC MACY11 27(732) 
OZREKB.P CROSS REFERENCE TABLE -- USER SYMBOLS 


a 


: = 3 
§ = 000900 zeee 
S UW 
Enda” pateee Aah 
BITCNT 033524 6635 
BITO = QO0001 beet 
BITOO = 000001 1178 
BITOS = SpbnDS tise 
Heigeg IK 
BITOS = OO0040 1128 
BITDS = 000100 ills 
BITO7 = 1108 
BITDS = ibs 
Etta = 1258 
BITIO = 1078 
BITI1 = 1068 
BITle = 1058 


1048 


ow 
~~ 
=) 
poe 
Ww 
i] 


a Gee EERE =. 
z foe 


wo w 
— 
4+ — 
—- 
wm £ 
1] " 


ti 
z 
ou nn 


SRNR 


= 
q 


1208 


o 

bea 

4 

oo 

" 
Oww 

se 


as 

m 

vuon v “ 
£ 


Cea 
BRS R 


1 

3 
— 
ae ee 


2 
oO 
es 
" 

Tm 
Ww 


100718 
=) 


425 S440 
3072 3156 
BPs 3308 

747@ #88355 

219 2Se 
4581 4989 

127 

126 

iss 

153 

l2e 

lel 

120 

119 7111 

118 7129 

253 910 

ecy 243 

ees SHY 

227 24s 
e216 9022 

2 245 
8860 8884 

229 24 
7097 8764 

230 231 
8764 . 8786 

me 

cs 

237 256 

238 257 

10123 
220 239 
100S6 10065 

eel 24 
1311 ENo4 

eee 241 
6501 6528 

22 242 
aves 8779 
5377 5535 
5379 1 
4827 8293 
2264 8789 
2170 87 

* 8813 
S* 68810 
2e79—s« 110448 
2275 
22 110438 


ecbex 
1644 1698 


5806 
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$933 


7894 


8021 


7921 


2706 
10059 


27 
100 


Doo 


3 


SEG Oe41 


10119 


10043 
8es4 


8834 
4719 
5096 
10120 


10122 
10064 


7848 
1021 


1360 
8747 


2704 





a | 
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OZREKB.P11 CROSS RENCE TABL ER SYMBOL SEG Oe4e 






CDT = 002000 2e4e 1554 
CERNER= 100000 8189 100478 : 
CERR = 100000 2308 1e40 1279 2366 7909 7%5 799 8187 Bebe 
CFMT = 010000 oe; uly W299 45144580 HGHO. HOES © BGI 7204 = B10H 8759 «8787 
CHKBA 034704 018" Sele 
CHKCTS 035116 4755 80808 8213 
CHKOP 035436 81708 9745 
CHKST 035444 8168 61738 
SKE Daeuod bigis S746 
CKSHR = 109407 1 7302 7351 97358 
= 000105 204a 1732 $572 5631 5705 5809 6036 6140 6179 6299 6433 6823 Ge42 
CLKCAL 032676 75478 7642 
CMNDLS 045074 7653 8216 «= 8508 =: 10131# 
COE = 001000 2618 
COERR = 001000 4390 100418 
CR = 000015 Wee 9145 = 9155 
CRLF = 000200 43a 1020 9116 9155 
CSIERB= 024000 8179 100108 
CSCERB= 177400 818i 100118 
CTO = 004000 e2Se 7911 8301 
CTOERR= 746 100608 
CYLERR= 00001 8130 100728 
DcK = 109000 2678 (8244 =e 
DCKERR= 000002 5949 8274 100518 
DDISP = 177570 498 «| 448 
DOT = 000400 2798 
DESHLD 901664 Ses 8827 Baie 8s03* 9027 
DFOOi 055334 595 109518 
DFO02 055340 £10 10954s 
DFOO3 055360 621 109648 
DFOO4 055370 702 109698 
OFOO4A 055374 e440 «6 B4S1_ «109718 
DFOOS o55420 715 109828 
OFOOSA 05544 e460 109848 
DFOOB 055454 741 109978 
DFOOBA 55460 e418 8430 109998 
DF 007 767 110088 
OFOO7A 055504 e392 110108 
OFO10 055520 790 (110178 
DFOIOA O555e4 u7ble 4768% SObb* SO72* SO83* 508% S20l* Se07* S2iee S2e%* s216x 110198 
DFO11 055540 B04 813 822 110268 
OFO1IA OS5544 1389 1472% 1468% 1503 1534" 1570% 16218 16264 1632 16388 1654% 660% 1677% 
1683 1689% 695% 1717* 1723e 1749 1755* 1863% 1896% 1905* 922% [951% 1963% 
1992% 201% 2018 2362% 2369% 6560" 6613 6683" 6700x 6880" 787e% 110208 
DFOIS B42 110358 
DFOI6 055572 850 110408 
DHOO1 053670 533 107968 
DHOO2A 16 G19. 240 10800 10956 10973 1098611001 11012 11021 11030 
DHOO2B 108048 1 10975 10988 11003 
DHOO2C © 054031 108138 10960 10977 10990 11005 
DHOOSD 108168 10979 10992 
DHOO3B OS414e 108268 10966 11014 11032 
rons, Os 8501 10834e 
os4446 108618 10994 


| 
| 
| 
| 





SUCH STRANGLE UIE? OCCT 0's pic 2 2 ona 


DHOO& 3 054315 8504 8561  1084Ss 
4377 849 48 











DHOO7 © 05 9 1085 
ma, eh ote, IHS 
DHO1 E05 1ee78e 
DHO11 = OS4ESS B02 10885e 
DHOl2 054704 B11 108898 
DHOLS 547.35 820 108948 
DHO14Y © 054 8 10898 
DHOIS — OS5005 103028 11037 
DHO16 055036 1 
DHC17 055133 6692 109188 
OHO18 055156 6700 109228 
DHeN 001372 6088 SOS7e 6692" 7653 7830% 7esox 
DHIN = OO1412 7008 «8441 © BYSe 
001422 7148 8461 
DHEN 001432 739¢ ©8419 8431 
DH7N = 001442 7658 3 
OT at ot 229 1623 «61657, Ss «1680 = 1720s «1752s«194B8«=S «1989 «= 01S) 6830) BHI 7985 
TSPLA 00114 4488 % 7151% 7305% . 
OISPRE 000174 3898 
OLT_ = 100000 e48# 2359 8279 
DLTERR= 000010 8281 100538 
OMD = OOOO40 e908 1785 1793 1832 1841 6010 6092 6100 6200 6347 9066 
DRA = 00000) e718 
DRDY = 000200 e788 «1253 «1258 = «1281S 68S 
DROT = OOO040 2768 8258 
DROTER= 00400 6253 6386 8260 0040s 
DRPAR = 900010 2558 
DRPARE= 000010 1605 100358 
DRSTER= O40000 8456 «= B42) 859101248 
DRVABT 053542 2288 107798 
DRVBIT 001630 891s 1333 1393 1395* 2199 2248 6494 6498% 6499 6501  6507% 
DRVNSK= 000007 2358 
DRVNUM 001626 8908 1339 1399% 1419 1459 1509 1526 1552 159% 1612 1774 1822 1872 
1938 1980 2043 2060 2104 Pl2ei 94415 4443 4865 95371 «= bs BS7e = 6508 
beg 66708 Gbdl¥ GBllx GEae Gece GAbl¥ bE7bH 7695 = 7812 «1093110934 
DSC_ = 040000 e828 1386 1629 1686 1902 
OSERBI= 000070 8183 100148 
OSWR = 177570 4Be 983 
OTE = 010000 2b4e 
TERR = 010000 ..6021 100448 
TYE = QOOO40 2578 
T 000040 100378 
OT001  osSe4e 594 109348 
OT002 055250 609 109358 
brogs Os52e0 bed 109318 
Broos | OS6S80 715 109378 
OT006 © 055250 740 
07007 055250 766 109398 
BTOo1D §Ose50 803 812 891 829 109408 
TOIS 7890 BY] 109488 
OTOISA O55 109498 


326 849 
DOTST = 000001 9098 1228 1249 1260 8 1265 








UII TII IIIT? 
gavnaenes : z 
Ratatat 


83 


a 
RRARARRER 


rrerrorry 
mirnints 
sRRPRS AS 


pe ee ne oe ee ee 
i 


2388 
esse 8244 
534 8270 


3 e 
1654 1660 
tt 1076938 
1345 «i588 
1625 1659 
ceet 4 £4) 
1eh 1631 
1570 #8107308 
1962 107758 
14 1717 
1 107478 
2362 2369 
2011 2018 
1389 6613 
1472 1523 
6880 107548 

951 1963 
1471 1487 
1378 967% 
6560 107598 
2010 107558 
1534 107248 
1130 1158 
SS2e8 1130% 
5071 SO 
787% 4758# 
5063 50 
10077 104908 
80ie i1471% 
1904%  1921% 
0079 #6104988 
8108 1388% 
2361% 4758 
819%  1962% 
4767 10081 
8278 1653% 
10083 10Sle8 
839%  8740% 
0084 105168 
10085 105208 
0086 105238 
10087 105278 
ieee 1905 
core | iguie 
10088 105308 
10089 105348 
10090 105388 
10092 §=6 105418 
10093 105438 
10094 1054S# 


10095 10548s 


8268 
050% 
107428 


1 & 
1659% 
8743% 


107488 
76S4% 


10764 
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1716 
1722 


1804 


10718% 
10765% 


107458 


10751% 
1533 


2197% 


1748 
1754 


1677 
107358 


1569 


2207% 


1620% 
6682% 


1748% 
7871% 
6699% 


6559 
1950 
1683 


1637 


2217% 


* 
104868 


1625* 
6879% 


1754% 


6612 
1991 
1689 


1694 


22e4e 
5088* 


1631i% 


1897% 
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6879 
2017 
1695 


1882 


2233% 
5198% 


1637% 


2017% 


107398 
107318 
107348 


1897 


2246% 
5206* 


1676% 


6559% 





1921 


2288% 
5215% 


1682 


6612% 


6682 


5382% 
5223% 


1688 









eee a | 
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OZREKB.P11 
EM27 051315 
EM28 0S1342 
EMeS 051355 
EM3 petcee 
EM3N 1400 
EM3O 051376 
EM31 051451 
EM32 051471 
EM33 051527 
EM34 051575 
EMSS 0S16le 
EMS6 051633 
EM37 051642 
EM38 OS1665 
EM393 051705 
EM4 050270 
EMYN 001410 
EM4D 051727 
EM41 051761 
EMY2 Oe 
EM43 2s 
EMY4 052067 
EM4S 052104 
EMYE 052144 
EM47 052201 
EM48 OS2eb2 
EMY9 052341 
EMS os 
EMSN 001420 
ENSO OSe411 
EMS1 052510 
EMSe2 

EMS3 0S2661 
EMS4 052744 
EMSS 052773 
EMS6 0530 
EME 0504 
EMEN 001430 
EM7 OS06 
EM7N 001440 
ERRCNT 1632 
ERRLMT 001634 
ERRVEC= 000004 
EXPBA 044724 
EXPCYL 044726 
EXPSEC 044730 
EXPTRK O44732 
EXPUBA 044722 
EXPWC 044720 
FMTE = 000 
FMTERR= 0000 
FPFMT = 000400 
GENCOM 037526 


CROSS REFERENCE TABL! 


CO 0 he OT 
Crum CWrV-Ow Ll 


w 
uw 


“- USE 
105508 


1368% 


& 
768 10734 
10730 


104514 


2217 


7431 
2880 
4041 


981 gots 
7103* 7105% 
g050% 100198 
8123% 
812e7% 100218 
8le6# 100228 
8057 100188 
8001 B224 


$311 
e386 2394 


SYMBOLS 


1382% 


2224 


e959 
4100 


993% 
7108% 
100208 


10017% 


2443 
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1439% 


10670% 


3028 
4157 


7019 


2517 


7971% 7973% 
3107 3176 
4215 471 
7020 §=67024% 


2595 


7984% 


3257 
4327 


7029* 






















OZREKB.P11 CROSS REFERENCE TABLE -- USER SYMBOL SEO 0246 


GETORS 034236 78938 8457 


RKE11 FUNCTIONAL CONTROLLER 4 MACY31 27(732) O1-O0CT-76 10:50 PAGE 214 
GETRK  O33446 77238 = =69744 
GNS 





= HEHE U 388 «1019 «9727 «9728_)S «9729s «9730 «973197339725 «9798S «9737 = 9738 «= (9739 
g740 974i «= S742 9743, 7447S 74747? 74g g749 9750. «9751 = 752 
9753. 9754 99755 9756 «29757 9758 «= «975949760 
sO = 000001 2194 : 
GPSUNF 04507¢ 8178 8391 8562" 101178 
GPINR = 000010 449 BYSY = B50SBSSE = 8593 101214 
GPENR = 000020 B428 «8502 S56 8589101 eee 
GP3NR = OO0040 S408 8502 8556 101238 
GRPIER 044750 Bi74e 8189 8236 e342 8434 BS44 100318 
GRPIMS O4S03e BS45 8576 101008 
GRPIST= 000001 B438 «6 BYSH «= BS10.,s«BSSB 8593101188 
GRPEER O44752 Bi75* 8266 B4le 8538 10049e 
grrems O¥S014 8570 100928 
| SRPesT= Q00002 e416 «68510 8558 = 8589101194 
GRPSER 044754 Bi7ox 6295 8394 8515 100See 
GRP3MS 044774 8516 8565 10083e 
GRP3ST= O00004 8399 8510 8558 101208 
GRPYER 044756 47oue 4756 «4765 «= B03 B0S3# 8059 B130* 8133* 8136x 177% 8214 8217 100688 
GRPYNS 044760 8223 100768 
GTSWR = 104406 1014 97334 
HT = OOO0L1 4o# 9114 ©9155 
¢ = 000400 2608 8244 8287 
HVRCER= 000040 8289 10055e 
ne 2178 2231 2237 «2337 «BKC «= 3090-3238) 3375 HSE?) 3823751 
3770 36842 4038563923) 3938 «= 408 «3S 4023 Hope) 4139) 97) 453) 309) 4383 
i380, 45164657. 781 HBB e8B | SHHB B78 583878077861 Gace EBS 
| IDRE__= 002000 2628 , t 3 
IDAERR= 002000 2074 2082 2130 1004ee 
TE = 000100 220 1148 2004 S751 Seso 6029 6425 
= 000001 Be44 8325 
LFERR= 000200 6327 100668 
UINTHLR 032356 1100 1214 = 74564 
_INTR = 000300 2158 
INSET 001662 Se0s 1123* 1128 1147 1152 1878 1960 1996% 2050 2111* S370x SOS SSb0x 


Séc0* 5S698% 5750% 5787% S8Sex 5928 5987% 6030% 6134% 6170%  6231% beau* 5418% 
6539 6593% 6667* 6686% 6818% 6839% 7447% 7456% 7490% 7495 7502% 7507 7510% 
7518 7523% 7552 7575 7643 7698% 7817% 7821 








IOTVEC= 000020 1358 965% 966% 

| IR = 000100 2398 

| TWATIM 033020 75398 9760 
| IWATIS 033040 76058 9757 
IWATIY 033100 76178 9753 
| Iwate 033070 76148 9754 
| IWaTl4 033060 76118 9755 
| TWATIS 033050 76088 9756 


RASL2 FUNCTIONAL CONTROLLER DIPGNOSTIC MACYL1 27/722) 
“= USER SYMBOLS 


OZREKB.Pi1 
IWAT] 2160 
tastes B35080 


Pe fs 


Nnininiininininl 
hue & tet 


adidas 
Beae 


a 


Sy 
+= ts Tel error yr 
as 


— 
Ee 


ae 


DO Boe 
oor 


CROSS REFERENC 


<-> 2 9-- 
es 


oe woe 
igs SeSOeE 


SSR 
an 
Shes amOI 


EBS 


TABL 


Se AotAy 
Sateen 





7548 = 7645 7846 
2001 7475# = =867S547# 867554 
$155 
538 2434 coes 2509 
11 2840 = eB ay 
aia er ST] aa 
4194 4250 ise 4 
4813 «4895 4 4955 
Si 8 6§39) 4 «6Sti7 | | SNS 
$719 Prat $775 39 55794 
5067 6123 3=6139 
6371 6394 6432 6450 
4B68% 6865 8023 8038 
le7e# 1340% 13718 1420 
173e * 1823#  1873% 
4B65% 6533% 6588+ eaa3e 
7804 7313 7987 7 
16° * 1338% a bd seat 
1938*  1980# * 060% 


ee ee ee ee 
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oe cere —— ese ne 0 ree mere oer nee 
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ZREKB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0248 


6200® 62e46% 63478 6379% 6402 gcse 


bs} 





LW 8738 «6441be 4869" b864* 7701 80 8081 

RELK = Soosoo ced Meee: 

MCLOCK 033600 17890 «1837 Ss BOl3)=—s«60S97)—s_s(Cdw2OH = «a6380—CiSS = b3EHCCé778 98 

MOS = 001000 he 8309 

MOSERR= 000010 8311  1006e8 

MEMPYB= O00004 Q$lle 356! 3564 

MENSZB= OO0002 zine eso 48628989. 30S2 «= ss305B 20s 3201 2S 9207 

MESMSK= 53051 * ep 

MEWD = 002000 esse 

MILCNT 001652 $058 7574 

MIND = 000200 eSes 6353 6358 

MMCSR1 901700 S3ie 3576# 3993% 3596# 2609 4675# 4678% 46078 7491+ 

m™CSRe 001702 Sses 4 3579% 38928 3599% séle# 4574e 451% 410% 7503 

MMVEC = 000250 1468 

MMVECA 001704 $338 7499 

MSP = 000i00 2gis 

MYTIME O3e744 2000 75738 7647 7823 

M.CADD= 017760 S28 

re 017760 seis 

H-HEAO= 007000 eat 

M.ID_ = 000003 3608 

M.PAR = 100000 3598 

M.SECT= 000760 sts 

M.SER = 077770 3638 

NCERWE= 020000 8264 0045s 

NED = 910000 e4se lete 129% 68297 

NEDERR= 000001 8295 100598 

NEM = 004000 e448 8317 

NEMERR= 000040 3519 3538 8319  10064s 

NEWORV 026174 ee00 382249 8664928 

NEXINT 032350 1120 = 74478 = 7489 

NXF = O00004 esis 

NXFERR= 000004 100348 

OBUFF  O&0446 e313 28437 e446 e465 8 86adl2 
ebbe 2694 e702 e722 e275 
3391 S30 s6e 869357] 4 863594 
3984 4418 = 4501 0 0=—s #S76e = 4577 
4868 8644939 44958 S000 S015 
Si63# $170 5195 5199 Sel3 
S516# SSel 5589 SS94* S648 
6803 8823 8862 110478 

OFFSET= 000115 208s 6155 

OFST = 000004 2738 

OPEROO 045134 6683 10131 101498 10745 

OPERO2 045151 10132 101Ses 

OPERDY seg ibis ipteee 10746 

OPEROE 176 10} 101568 

OPERIO 045205 10135 ihtere 

pat 10138 anibhe 10747 

14 101 101648 

OPERIE 10138 101668 10754 

OPERCO 045253 10139 =: 101678 

OPERce 045265 10140 §=101698 


f= FUNCTIONAL CONTROL 


OZREKB.P11 
OPERSY 04 
OPER26 O4S315 
mee 
OPERSS 04541 
OPER3?7 wate 
Spend 77 
OPI. = Baan 
OPT " 000020 
OPROO2 O4SS56 
OPROOS 045574 
OPROOY 045624 
OPROOS O4SE4E 
OPROOS 17 
OPROO? 7 
OPROOS 1$7 
OPROOS O462e4e2 
OPROIO O4E3le 
OPROI1 O46444 
OPROl2 O46607 
OPRO13 O46613 
OPRO14Y 046617 
OPROIS O4%6623 
OPROIG 046637 
OPRO17 047423 
| OPROIB 547540 
| OPRC1S 047626 
GPTFLG OO01656 
OPTTST O32434 
OR = 000200 
| PACK = 000103 
| PARBKO= 000200 
| PARBKI= p00) 
| PARM 001716 
| PAT = 000020 
PATCH OSE046 
Be ee 
| PATOS ey 
PATOS 44260 
PATO 044320 
| PATIO O44360 
| PATI] O44420 
Be ies 
| PATI4 ana 
| PATIS O44620 
PATIE6 O44660 
| PC =7000007 


zo 


1072 


eel ances 


Reese 


IAGNOSTIC MACY11 27(732) 
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1017 ls 


101928 
5083 
8283 


1081 


102448 


gags 
10938 


9123# 
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50893 5201 5207 S218 S224 101988 
ld2lls 
102868 
103078 
1228% 1249% 12608 1265 2304 escse § 3052 
3577 3590 3597 3610 4560 4572 4579 
7498% 7509# 7S2l1% 7548 45 7800 7846 
4613 4627 6552 74848 
7498 
3597 3610 4S72 4579 4608 7509 
096% 2000% 0OS* 3616% 4613% 4“62e7% §552% 
cbl#  7278% 338% 7344 7441" 7527%  7557% 
9130* 9137 9151% 9153% 9325 9339% 9400s 





30S8# 
4608 


2201 
$311 


697S% 
7584s 
Q44S*# 


6978 
7b4e% 


SEG 0249 


3207# 
$379 |. 


§988% 
7647 





a 


seeaaey Bey 
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OZRSKB.P 11 


+ 


ieee 


ss 


oO 


G3S074II33223 
re 
¥ 


7 
| 


ne nad 


oh 


me 
Z 


8 
z 


Fas 


im 
: 
87 


é 
383 
BB 


8 
© 


x 
z 


: 
Gees 


2 
é 


CROSS REFERENCE TABL 


100638 


7637 


$35 
1B41# 





1eiS = (3885) 4567 0s 74S Ss 75501 7513 


9657% 9658% 9667% 9673% 9685* 9686+ 


ese 4863010 3088 3156 3236 3308 3373 M46 3525 3665 
38 3 93 4006 4021 4080 864137 4251 
4519 4655 4779 4814 4896 S446 5877 5936 


£ 
Ai 


e103 S720 $776 S992 612% #6277 #+«2+6533 6588 6659 6813 
7880 6p 7930—ss«wBI44H)=—s_s«sBe2s—C(<iési‘iDSsSBY Ss BEDY = 97408 
2004# S$372% 5S751# sane S850 5933% 6029% 6425* 6484  7819% 


7909's 7911 7921% 7964 
S371# 6463% 6602# 7812 7840 ##7903% 7913 7962% 


6016# 6100#  6207# 6358 





Be Sn ee 


se eee cen came eee eens 
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OZREKB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


Ri 


=%008001 


1958 
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SEG 0251 





1288% 
1674 





SELLY SORA LE 


Re =%00000e2 
R3 =~000003 





TIC MACY erie) 
SYMBOL 


B750s 
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e763. 
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DZR&KB.P11 

RS =000C05 
RE § =%000006 
R? __-=~000007 
SAVREG= 104413 
SCLR 


cS44e 
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RK611 FUNCTIONAL CONTRO 


DZREKB.Pi1 


re 


SPACE2 O45534 
SPAR = 020000 
SPARER= OO00CO1 
arorte 1624 
SRTINS= vena 
SRTSPL= 000111 
SRC = 177572 
SR1 = 177574 
SRo 9 = 177576 
SR3 = 172516 
SSINIT 034452 
STACK = 001100 
START 001736 
START1 001742 
ST 177774 
SvAL = 100000 
SWR 001140 
SWREG 0009176 
SWO = 000001 
SwOO = 000001 
SwOi = o00002 
SuOe = oo0004 
| Swo4 s tegenue 
E: = 000040 
SWOB = 000100 
| 5wO7 = 000200 
SwOs = OOO4O0 
| su09 = 001900 
Swi = o0000e2 
|Swio = 002000 
|SW11 = Oo4000 
Ee = 010000 
Swi3 = 
| SW14 = O40000 
ae = 
Sw3 = 000010 
| SwH = 000020 
Sue = DOOIOD 
= 
SW7 2s eee 
| $48 = O00400 
Sus = 001000 
| -ACLO= 109 
2 Brres 049000 
| S:CART= 000400 
| §-DIB = 002000 


R DIAGNOSTIC MACY11 27(732) O1-OCT-76 10:50 PAGE e222 
EFERENGE TABLE -~" USER 


33) 
2288 
1605 


- 
73 
82 
10039 


BeS4 
8 


7030 


SxS LREIBB 


7429 


7535 


d 


1 
48 
2 


828 
S40# 
1043 








SYMBOL ; SEG O2S4 
cee aes aoeas aon q tH apees 9666 «= «S674*# )= 9678 20S 9679———is«éCSEBD 
8246 
100328 


943% 346% 949% 1048 lees 1401 
1046 


704S* 7052 B8836# B8844e s88bce 8914"  3024e 


963 1115 7437 = 7468 
9424 


1366 1437 1468 1484 1519 1530 1566 1635 1692 1880 1895 
983 985 99l# 8 8©998% 1012 7097 7111 7114 =671289s 7136 = 7306 
9383 S438# 9678% 


7se)6=— 742S—CiNGC7ISCSNNGS1 9344 9665 
10le S344 9383 9406 


ame ea - ee ee 
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OZREKB.P11 


CROSS REFERENCE TABLE -- USER SYMBOLS SEQ C255 

S.DOOR= 000200 3338 

5.DRA = 000040 3048 

S.OROT= 020000 3258 

3- ORY = 000200 2068 

SFT = GaneDD ; : 

5:FORM= 001 8s 

FWD = 336 

‘ = 3478 

- HDHM= 3318 6412 

S.1CYL= 000040 3178 

S.ILF = 000400 3208 

S.LIMD= 020000 3538 

ae atin sue 

@-NNOV= 010000 : 

S.OFF = 002000 3098 

S.PAR = 001000 sels 

S.PIP = 020000 3128 

S.PLO = 004000 3518 

S.REV = 004000 3378 

S:RTzZ = O20000 3398 

§.SECT= 000020 3448 

§.SKI = 002000 3e28 

5.SPIN= 0109000 3118 

seas st 

2 PEs vette 3078 

S.UNLD= 940000 3408 

S.UNS = 046000 3268 

eRe Be set 

S.WGAT= 0001 346 

| S.WLE = OO4000 38 

S.WRL = 004000 3108 

S:xDOK= 000920 & 

| §.XERR= 001000 3498 

| TeiTves 000014 1328 

TCHKOP= 104421 1945 = 1297, «1363 s«1377,s«satHeBSs1H3S)Sss1HES)—Sss1HBL=Sss1S16—Ss164B—s«1722 738 4= «1781 
i829 «1915 «1986)=— 2186 )3=s «8329S 8354 = «380 )3=s 457 = B4GD 2569 «2604 = BSB 
e716 2774 2788 e826 56 871 2933 2951 3007 2083 3098 48= 3153 

3167 3231 «= 3247) 3305) 3319s3368 «= 3388 «= 42 «2S 345936573676 «= 3691 2S 3741 
3764 3779 3851 12 3947 3998 HO? 4 4091 446 

Hebe 4318 4362 44288 4a4g 45] 4525 4601 4651 4666 4726 4 4879 

| 496 4 967 5009 sive 5187 S268 52 S363 5387 

Size «5457 54H tiCs«é‘SSB2 2) ssCS56B )4=—s«SS83)S «S608 )«=s« Shee 2S siSbe7 = «S642 42S“ S665 1 

| S716 5791 5955 6046 7 6105 6151 6167 6175 90 6288 

6319 B63 6368 6409 6444 6543 6597 6664 6677 6828 6847 6873 

| TCHKWE= 104422 134 1560 «1604 =ss«1669s—«id179B~Ctié‘iaGSCié‘ik7 82129 77 «92557 = BB19. E71 

e731 3507 3535 3618 - 4389 4749 4825 50 S179 5743 «= 5834 )=—s« S891 0S: S947 

6020 6252 6385 97468 

| TGETRK= 104420 1239 «1278 = («1528 =Sssi74S—Sss«s1879)—Sss«1B894H)=s_s«a1946—Ssié‘idSB7?=—ssPONH = SB )StsCéGSSH)=—s«EO7)~—SsGESS 

7650 7828 7874 7974 173 97448 

| TIMCNT 001654 9068 7550% 7579 7582 7641* 781% 

| TKYEC = 000060 1398 9321% 93228 
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OZREKB.P11 
TLOROR= 104417 


T 
TSSINI= 104416 


: 
a 


ven 


= 
S 
a 


Se: 


: 
= 
= 





a 


an 
oOoO0000 
Skee 


has Bes BG be Be 
sr 
K—OUwu 
Sort 
oo 


-" 
w 
= 
Ww 
roe 
oo 
Bas bee 
ue 


970% 
738 


10073 
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SEG OeS6 
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SEG 0257 


TST. 12414 e3e08 7181 
1133 15en 30488 7182 
TST34 013032 31278 87183 
TST3S 013220 31978 7184 
TST36 = O13444 32788 7185 
ae a 
Ha fee REE GIB 
TST41  O14220 34918 7188 
TST4¥2 O1427e 198 §67189 
ae ee Bet aie 
TSTY 15 7208 71392 
Tet Hee 5 be 7193 
TST4? 86015474 1 7194 
TSTS OO4452 14548 7169 
TSTSO 015700 39768 7195 
TSTS! 016104 40638 7196 
TSTS2 016230 4Ylee8 7197 
TSTS3 016354 41798 7198 
TSTS4 O16500 42368 7199 
TSTSS O16624 42928 7200 
TSTS& 016750 434S@ 7201 
TSTS? = 017014 43728 ©7202 
TST6. 004630 1So4# = 7161 
ST60 4017066 44078 7203 
TST51 017336 44858 72 
TSTée O175ie 45588 7205 
TST63 = =91774e 46eS# 7206 
TSTEY  Oeblee 47038 7207 
TSTES O20620 48568 7208 
ST66 021024 49318 7209 
TST6? 021130 49878 7210 
TST? «004756 15478 7162 
TST70 021550 $1208 7ell 
TST7i 022170 52478 7ele 
TST72 022300 53098 7213 
TST73 ies} 6 SSil# 7214 
TST74 02361 56788 7215 
TST75 Oe4 57698 7216 
TST76 386024 58718 7217 
TST77, Oe43Se 59038 7218 
siege a 

| TWATII1= 1Ds43t eet 2326 8 824S4 
TWATI2= 104432 97548 
TWATI4= 104433 97558 
TWATIS= 104434 4359 4386 4WHes 

| TWATIB= 104423 1236 2751343 


TWATeS= 104436 S740 66687 97588 








——. 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


OZR&KB.P11 
TWATS2= 104424 


TWATYS= 104425 
TWATE4= 104426 
TWATBS= 104437 


TWATSO= 104427 
TWATS6= 104430 
TYPDS = 104405 
TYPE = 104401 


RBS 
< 


mir 
OOD 


AAs 
2 . o i . . 


Riga 3303 
go SS 
. 


0002 
000400 
000004 


Baz 
uu 3, vt 
2988 
8 


=e 
z 





8276 
. 100694 
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SEQ 0258 


1 
3244 3306 a3l6 365 38 3439 3457 3533 3607 3654 #3673 3688 
3761 4 848 86 “Ges 6 sS1%5)—s—iCsSteUs SSC CS’ OD 
4787, s4B22 = 4906s: 9645 S006 S02) S042 5139 #5154 5176 5265 
6018 6102 6172 6208 see 8697488 
e7e8 3909 39°99 3944 4014 O2e9 S374 SYSH S544 6536 97498 
4315 Y648 4663 365 459 97508 
20 ell S428 4 6S57Se)0=—s(«S788«=ss«CS8S3)0=SssBOBA SiG L3G S292 ~=S CGH? —SsCsiSHOOsC«é SSH 
6840 97598 
SS6S_ = Sée 5699 6870 97518 
at 
10e6 3=6104S)=s 1050 =: 1053 O 1064 #1072 #1081 227 «1230 3s «i1e48)=—Ss« 1307 
1325 13e7, 2907 e908 «= 2910S 3055) =: 3056 057 38=— 3204 205 206 3563 
6981 6984 7308 73220 7323 7328 7339 #7386 387 8=6. 7391 73920 7399 
“ie “ee es M425 (433 (6S 8e7 G85e8 8560 S61 9047 8=69119 
Sese Ss «9338 «= 9980s HON = sis0S_iC HOB OHI (Gs HN 40 9459 07 $13 
2556 ee %e8 930 9533 9537 9603 9605 9687 97278 


1618 1651 16 1714 1746 6556 66809 6877 10931 10941 
S060 $065 5078 5082 5195 S200 Sel3 Sei? 805 80S4 8139 10944 
1240 1279 1657 1680 1720 1752 1948 1989 2015 2366 6830 
heal 7726 «= 7964% )§=6796S)—_i 7969s 7982 =SssCsBOSSSsi179—“‘éwk«d 7H SCZ Ss 
1242 e984 = «2359—Sts«é831 81 10941 

8143 


ccs 10931 


81e8 8140 10943 

1253 1258 1281 1283 1354 1366 1380 1386 1437 1468 1484 1519 
1566 1629 1635 1686 1692 1880 1895 1902 1919. 6680 6696 98183 
10931 10941 

8185S 8240 10931 10941 

10931 

b41e 


Bk 5074 S086 5091 Sanu 0 («S209 —Oss«See 5226 | 8001 8004 8040 8083 
100708 


8305 
1849 8307 100618 


1004648 

8321 

8323 10065% 
380 

7601 7604 


7607 = 7610 
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WRDATA= 000123 


ean 001672 
WRHEAD= 000127 


$ATY3 031270 


wre 


C 
S8?28S888sann 
ste 


SSoLennorw 


REKB.P12 
WCKERR= Q00904 
WLE = 904000 
WLERR = 004000 
i 
{ 


5046 
a 


5181 


8278 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1u0Se4% 
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9547 
91524 


973 
463% 


463% 


479% 


7386 


6499 








SEG 0259 


e7e0§=—e778— 2841 esi 46 a893_—i 7A C3139sti‘éSV‘IG 
sb42 4372) 86 3Ble 2S 3897—s3982 2S 449990 BHO 
Se Sie SiS S19 5597 Sézs S315 61% 


2639 «868692 0S e752 Ss eBle2 S414) =—ss«s4709s—s*4BEEC*«S;G' 


974 975 
464% 465% 466% 467% 48% 469% 4708 471% 
4648 465% 466% 467% 468% 4698 4708 4718 


480% 481% 482% 483% 4848 . 485% 4868 487% 


7391 7399s M4le@ =o 74S (isi‘iSF—CiS Ci‘ (ié‘éCLSSS 


6521 
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SEOPCT 030112 973% 1027# 1132# i160* 1308# 69768 6980 7435 747% 
SERFLG 001103 4308 #1154 2190 2228% 7081 125 7127 71338 7185 73038 7364 7537 
SERMAX 1218 4368 9768 7ie7 F7iSG# 7155 
SERROR O31 97 709% 73018 
SERRPC DOLIIE oes" 73108 7311# 7312 7318 7319 7321 7325* 7326 ####7364 10921 10934 10940 
SERRTB 001360 Séle 7383 P 
SERTTL OOll12 4348 7309* 7364 . 
SESCAP 001264 of 3s? §75* <7149% 7255 7357 7364 ##7657# 7656s 78778 7876 79778 79788 8602s 
SETABL O01316 Sils 
SETEND 001360 415 sus 
SFATAL 001390 Shue 72708 
SFFLG G3i5e6 72a3# 7e36* 7264 #7273# 72818 
SFILiC O011 Se 9124) ~—s S155 
SFILLS 901155 usGg 9155 
SGDRAOR 001120 438¢ 
T boi 124 4oD8 
SoTSuR Biesap ot 9733 
SHIBTS oo0224 4l4e 
$1100 43506 gcoge ? 
| $I 1104 G3ig 7190% 7141 7143" 7154 
| SILLUP 043744 57 96908 
| $INTAG 001135 4458 * Bel 41 9554 
| SITEMB 001114 4258 lee 7353 7364 #7377 
, SKTNEX 70S48 
| $KTOUT 930376 
| SKT11 «6930244 1033 70278 7031% 7054s 
«SLE 001274 4968 7364  SI5S 9537 9547 93608 
| SLFLG 031525 
| $LPADR 001106 43280 ««977# «= 722% )«=67131® =«607147# )»=67152— 7154 
SLPERR 001110 4338 978% 205S5* 2116" 2171% 23208 2334" 2374% 2459% 2538" 2851% 29128  2997% 
2061% 3133% 32]0% 3264% 4440S* 4437s 4774s 4859s 4e8ce SOz>es Sible S346* 5439s 
| 6650 * 7131 7148 7154 7354 7539 
SLSTAD 030510 193i 7% 
| $LSTBK 030512 1024 i * 70758 
| SMADR1 001330 So9e = 1042 
| §MADRE 901334 5338 
| SMADRS 001340 5368 
| §MADRY 001344 5398 
SMAIL 001276 415 419 S02e «60s s99S—i(“‘étCOCé«@72:Hs«“i‘é72342~=Cté«éS36999 
| SMAMSI O0i325 So3e «6(1041* 290! 2982 3050 3129 3199 3289 
sretee 001332 c3is 
001336 c348 
| SMANSH 001342 5378 
| SMBADR 000226 41S8 
| SHFLG 1524 Ps 7240 7275% 72798 
| SINEM 3336 Soe 
'$MSGAD 001312 s 72508 7253 
| SMSGLG 01314 5i0e 7255 
| SMSGTY 001276 C038 7248 #72568 7268 #7272 
| SMSWR © 043325 9405 9550s 
'§MTYP1 001327 Sous 1040# 
SMTYP2 001333 S328 


ae me a ee nn i rr a ne a te oy 





RKE11 FUNCTIONAL 
OZREKB.P 11 


eo 


ies 


eet et et ae 
WMEWwTY ~4 


@ 
4 


BRRRAR 
ZUCRREOREE 


ae 


ee  eeeEeEEeEeEeEeeeEeee——eeeeeee 


! 
i 
; 
! 


1 


Oe 
02 op 
bea ait) oe) 


PSSB8SB8888R8 8 
BaINSRS 


030164 


CONTROLLER DIPGNOSTIC MACY11 271732) 
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71548 
S9le6 9155 
1110 11388 1140 ij6re 
18738 1S 17598 = §=61761 
2027 203l8 2093 21378 
ebeS* eb2e7 26768 2678 
3040 31178 8 3119 31878 
3si2s 3514 35408 3542 
333 40S2e 4054 4llls 
43648 4366 43988 4400 
4850 49238 4925 49698 
S669e 5671 57608 762 
6109 beS78 6259 64658 
9283% * 3296s 
9$253* 9258 lt 7e* 
7123 7132 7142 71518 
gss* = lei? 2164 38 
96938 
96578 9685 
96738 
7364 giss 9453 9520 
9736 
9737 
9738 
4759* 4769% SO64#  5073% 
ees3s* 1 1 
4760% 447708 SOES#  SO74s 
109493 
7300 eess* 10945 10949 
1094S 
10945 
10945 
1094S 
10945 
9740 


ser 
9674 9675% 9676% 96928 
703908 


9547 


S081 
S082 


6974 


$605 


S090# 
S091# 


S200# 
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$209# 





1409 14448 
18548 1856 

2236 24138 
e7348 86796 

3270 33398 
37118 3713 

4170 42258 
4S4S¢ 4547 

5104 52378 
Seses 5900 

6512 65648 
6982 6355 

5608 

5199*  S208« 





7138 


S216# 
S217# 





7155 


S22S* 
S226 





7895 
8225 











SEG Ob: 


67618 


7928 
BgsS4s 





Pp 
$SETUP= 000137 


RAS11 FUNCTIONAL 
OZREKB.P11 


St 
SSBB 


o01242 


a3 
SSBsssReEEeRs 
SPORANANaT? 


4 
z 
5 


seh 
7302 
70158 
70638 


@aonwonm 
Be $+ be bs 


oBUNS2 Se 
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96S 967 
7381 7389 


969 
9342 


Bb23# 
1138 


971 
9347 


8644 
11448 


1167 
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9378 


S401# 
1083# 
€900* 


8422 
8571# 


12058 


9411 
108S 
6925 


8443 
8573 


1407 


977 


10934 
1$92# 


S423% 
1087 
6936 


S4s4 
9577% 


14158 





1004 1007 

491 492 
1548 1592 
e583 2634 
3492 3520 
4346 4373 
ssle 5679 
£797 6966 
7111 71ll2 
7235 72% 
10990 §6«©: 10948 
1770#  1818% 
2687 # 
3SS5# + 
44082  4486# 
5770# 5$972% 
6972 7134# 
9443# 

1089%  1090% 
6958* 98389 
8549 

L444 145S8 


SEG Oeb2 


6971 


1091 
8768 


1496 





ee ee 


ee ern eee oe eee. 
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OZREKB.Pi2 CROSS REFERENCE TABLE -- USER SYMBOLS 


2888 


wu 


ao 
a 


oe 
5 


LET 


7 
: 


fe 
88 


aa 
eine 


Beh 


f 
= 


-SASTA= #e4444 U 
-$% = 000224 


15058 





1S488 
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SEG 0263 

1573. 18928 ©1759 7708 180 18188 1954 abe 19 9248 
Bee 091 2099s eS, Bat 13 eat 1808 ae $334 
2625 26348 2676 26878 2726 27468 2794 28048 2989 29008 
a a 
3345 apes abcde S111 wos8, 4168 41808 #252 i238, 4281 
W964 «443738 «-4398)«=S «408s «4477s OSHS «= ssSSOe «4G 160 bbe 
48578 4923 453e8 4969 «449888 «6S1020Ss« Si2l8 5237 Se4ee S290 
5669 56798 «S76 S7708 S862 Se728 5898 Sdide S90 59718 
61198 6257 62728 6465 64788 6510 &SiBe 6564 &5738 17 

116 7156 

97308 318 97328 9733 97348 9735 97368 97378 97388 97398 
97438 97449 $7458 97468 97479 97488 97498 97508 97518 97528 
756 7578 97588 97598 97608 497618 
7081 7116 7145" 7146 7151 7155 7305 7364 7375 
9528 42 be 
9727 

91428 9143 99445 

1071% 1074 1094* 1095* 1097 1101 
71588 71598 71608 71618 71628 71638 71648 71658 71668 71678 
71718 71728 71738 «#71748 «#71758 «#71768 71778 «#971788 71798 «71808 
71848 71858 71868 71878 71888 71898 71908 71918 71928 71938 
71978 71988 71998 72008 72018 72028 72038 72048 72058 72068 

i0s 72118 72128 72138 72148 721S5e 72168 72178 72188 72198 
722 2 7eo4e 72258 7ecb® 70278 72288 
3948 3%8 403 uO4e 406s 4O8# 4268 497 ¢€2 977 
7154 7155 72828 7364 9155 92218 9302 93068 9307 93088 
9761 109308 110438 110448 1104S5e 110468 
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OZREKB.P11 CROSS REFERENCE TABLE -- MACRO NAMES SES 0264 
COMMEN le 1428 
ENDCOM le 1428 
ERROR ae l 3 1159 1207 1237 1246 1659 1276 1298 133 1344 1352 1357 1364 13693 
13 137 1383 1390 1417 1424 14 1433 1436 144 1457 1464 1466 1473 1479 
155 14 1507 1514 1517 1S24 1535 1550 1$S8 1564 1S71 1594 1602 1608 1622 
1 1 1640 1649 1655 1661 1667 1673 1678 1684 1690 16% 1709 17l2 1718 
i7e4 17 17. 1750 1756 1772 1779 1782 179% 1802 1805 1820 1827 1830 1844 
1 ig 18 1884 1892 1899 1906 1913 1917 1923 1936 1943 19S2 1964 1967 
1978 1 1993 20le 2019 2040 2048 2053 2058 2077 208s 2101 2109 2114 
2119 cle 2133 2173 218s 2187 2198 2208 2218 seca ee34 2247 2289 2308 
2327 2330 23493 e352 e355 2363 2370 e378 e38i e 2383 2383 e356 e43e 5 
2458 e461 e472 2481 2491 2507 34 2540 es 2561 2s 2585 2605 
at at 2636 cbS4 go5/ see) ees pag ak sche 2729 Hh ta e77e te 
Sces | boeg «| See) S88 73 Sei ‘S82 shee «Son; Saas 5089 
3105 3113 3137 3151 3233 
3255 3263 3288 3303 3386 
3408 3425 3440 3443 3534 
3608 3622 3639 3655 3739 
3765 3777 3780 3786 3877 
3913 3930 3933 3945 4030 
2. 2S 
ho ee 4E03 
4EES 4532 4S40 4588 4681 
4727 4747 4762 4oQ5 
4877 4880 893 4907 5010 
5931 S042 5967 
5202 5210 5219 S227 
5383 5388 S404 5407 
ss42 5547 ocsg3 5563 
ci43 5662 cobs 5681 
5773 5785 an 57392 
5951 5956 5 S986 
6083 6103 6106 6lel 
6233 6237 6250 6256 
6383 6389 
£523 6537 654] S44 
6693 6701 
6881 $061 S064 


SE Pere 
te 60 606 
6371 6394 6432 
MSG 11088 «61110 8=611388 =1140 


RK611_ FUNCTIONAL 
OZREKB.P11 





MULT & 
NEWTST 7 


OPCHK 


= 
tu 
-“_ 
uw 


oars. 


5 


$8 Sei oe 
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18548 
12 

9708 

486 
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NAMES 


19688 
S 






ce 
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DZREKB.P AMES 


CROSS REFERENCE TABLE -- MACRO N 





a rn nn a en me nn ee 
pa , 
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CROSS REFERENCE TABLE -- MACRO NAMES SEG 0267 

$2855 rt 

“SSCP 18 Se 7076 
$sI 18 be 6999 
STRAP 18 be 9696 
5 18 

“$7 ie Se 9076 
"§TYPO it Se 9222 

OCA 18 48 


ZREKB.P11 


! 
2194 


é 


Sika sieeRa ee oe 


RB 


SoHaRSeBe 


Resanuee 


BR 


Sees 


& 
Roe 


pepaseees 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(732) 
fe) CROSS REFERENCE TABLE -- PERMANENT SYMBOL 


80 
ee 


saivisaeesner sot? 


Soraese see e San 


—-Om 
Res 
-_ - 
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RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(732) 
CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


DZREKB.P11 

BLE e567 
BLO 
BLOS 1063 
BLT 7117 


tn 


BPL 1034 


CLC 7751 
CLR 


7417 
$931 
9499 
8207 
i 
1280 
1624 
1920 
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OZREKB.P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


70 
8092 8116 8120 8128 8206 
gaag 3 3 9353 9361 9366 9368 
CMPB 1010s lee3 Ss 2195) 0S el) =— 222 
a eo eM C5 ER | 8131 
960 §6.896S—_—isi89702=Ss«s897S5 Ss B98O=Es«s«88398S 
CoM Sure 95e0 §869Se4—0O 9534 =: 9581 
DEC 10371318 =: 1615 ime 1957 2372 
3403 3465 3474 93701 3789 =: 3833 
4535 44676 4800 4838 5367 
7119 79 oe "6 7 7579 
7960 «=—7967——CBOHS_ 14H Ss Ble4 = BS23 
89e4 3=—s_«8931 9005 )s(«9007—Sss:« S011 9019 
DECB 9i2e8 = «49131 9263 
EMT 36 
HALT 383 7350 7361 7440 95 
INC 1e88 =ss«13030Ss« 1358 1493-1726 
S491 6497 6527 6582 6720 6727 
7140 8=— 7272 = 7309 e8 7447 
8119 8ie3 8540 8546 #8571 85 
$365 9372 9456 9483 9676 
anes 2487 oS 2833 5483 5487 
MP 393 395 397 1028 = 1133 
ee7e 2290 862407 8Y S543 6506 
6993 7096 7439 7469 81 
JSR 1023 = 1096 7 1837 2000 
e443 e462 2509 7, 06 N@StséSSGS 
e759 e811 2819 2840 
2992 7. a 3031 3066 





4o44 
4i94 4209s 4218 «= 4B R,SSCiéCD? 
4y447 HUES 63 4490 44 
4ue35 4ue54 «46694678 «= «41708 
4813 4831 4e4O 4e72 4B95 49 
5167 S256 73 «$317—s«53 
co71§ 5610 cous = 5683 
5918 «5935 «5978 «= 5991» 6003 = 013 
6204 6239 6276 6313 6328 
6552 35 6988 7261 7338 7344 
eyes = 8435 BHM B57 = 8791 Db 
MOV 4 943 36 951 962 
| 972 973 «#«977 «#9978 Bl 
1030 1031 1042 1051 1055 1059 
1115 1116 Ss M2 sss 1120 
1145 1148 1158 1160 1205 1209 
1e72 «1308 «Ss 1311S «1312 = 13231331 
1388 «= 1389 «139513968 = 1399S 1415 
14 1475 «1487s Hee Sss1S0S = 1509 








ce ee One SRR SEEN e 
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DZR6KB.P11 





O1-0CT-76 10:50 PAGE 241 





SEG 0271 


RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC MACY11 27(722) 
CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


DZR&KB.P11 


MOVB 976 


TSTB 1154 

04 
-ASCIT me 
-9SC12 


07 
10772 
10878 

-BLKB 9306 
“BLKM = See 
‘BYTE §=—-_-429 
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DOREKB.P IL CROSS REFERENCE TABLE -- PERMANENT SYMBOLS SEG 0273 


$34 $35 $37 538 87 877 1790 =: 1791 1838 6 1839'ss2l79—isa23 BD 
234 es3 e438 2439 24665 246 e$13 SiS 0 gs%—tiéiaS (ate CSC 
eo4s 9663 e664 2695 c&% e7e3 eeu 73S 0s oe756—“‘iBLCCCe7BE CBSE 
2863 en +) Ce + Ae yp, ese 999% 699970 |= 3013 3014) Ss 075i 07E—s‘“‘<‘i‘éC 
3143 189 2160 3219 839 322 3e39 3040 3294299 g3le@ 3356 3357 
343i g43e 3449 3450 3900 3501 3528  35¢9 3572 3573 

s7e3 3730s 375237533771 377e0 0s 38153816 3849 3844 =: 3857 58 


3684 
s3e4 3890S (asi as 38S—_—i98G—(iH00— 010s eH 2S 02S S083 4084 Ss «4140 
"1950s seit OL 4384 864955 4B. “Jee 604502 = 45090415170: 4518 


$553 4 
5708 $709 S’e3 5724 Baan 5736 §6=6s$779——is«éS78D—sé«éS$'798 Pnoe 


Weis SbHY ESE ESD 71713, WH Me Be 4784 4B? HIB (4899 

ey i das «= cotB dai} cate dS S174 $135 S149 $150 

S260 Sebi $277 S278 5321 S322 5355 5356 §398 5359 S421 54 5449 

E523 S575 5765590 S551 Sb14 S15 5634 eg SENS 

pat | 

5g 592259835033 ST t  -) 107 ~—«&O0O8 E040 

6089 bie? s«bil28)Ss«éwiMSSsiéwGHYSsC«éSB SO CéGISS)SsC« ee )~=s« 83s: 197 6244 

£281 6303 6317 6318 B333 6 BS 375637 63986398 

gusy OG 6995 4«—7279«ié«7BDSC7PB1) «C75. Ci 7MGSCOCSH SCS?) = «SPGH S295) «RSCt«SDG 

9545 10952 10955 10957 10959 10961 10%5 10967 10970 10972 10974 10976 10972 10980 

10985 1 10383 10991 10983 1089 1099811000 11002 1100 11006 1100911011 11013 

11018 11 11022 11024 «11 11023 11031 11036 11038 11041 
-DSABL S461 
" ENABL } 2 9302 
“rec aad 128 142 154 165 76 401 403 410 423 
4 & ws wt wet we 48 if ite es He SF 8 
| i 060OUCsMDC(‘<i‘skCOti‘zk:C(itiC (iti (ateCFCiSCtié‘*@KFLC (GéeSCCdiCiédIGE’TCi‘(‘<‘i‘i 
879 1000 1004 1006 1012 1018 1020 1109 1110 2112 1113 1115 1115 1133 1140 
: 1142 1199. «s1144)=—s1145)s«d1168Ss«d169—Ss«é2ODs 1205 1206 1408 1409 1413 [419 f4I5 
| i416 4B Te 453 1HGH 15S 1G 14371498) 1503 15041506505 SH] 1542 
isu 46oisu?)=—s«sisug.SsiédSN).SsC«dIS7H~—sS 1590 1591 1592 1693 1760 1761 1768 1769 +#«# 1770 
1771 1807 1808 1816 1817 1818 1819 1865 1856 1866 1867 1868 1869 192 1927 
| bn35 33a 2083 2037 2058 39321008 iss Bieo)StetSsSuee «Sted Soe See 
Son, | Seon Seve See Ri Scag See 5439 sual eis ces Segs Sey? SSB 
Sa ee ee nn nn a a a in 2 ns OE A, 
| eee 289028912898 2889290) 901 2895953971 a7e © e979 2880981 oak 
| 3008 3039 «300 Ss 3047 's«3048)«=s«3049Sss«30S0—'s—«08S «= sii00-s«3i18 «= «3119 )Ss«3iz6 = Sia? ~—s as 
32g 3553193188 3189 9319731983199 2933S eta Heer? 3078 

oq aad Se] BSsSe MDs Suhsg>suessdena Set Stig Seth SESS 
| so; Seus—sSee}eeCSeee eee 38 .s 2S ey Se Bs 6UkCOCORG 

3712 493713 «—«3719Ss«43720 21 2 3743 37378] 37993800 3805 3307 3808 

ne 1 3992 3914 340394943968 5 Ss 

3078 4019 uoss §=6 sy Sse? SE «= 4093 yi2t 

Gi22 0 4123 4128 4150 41694170“ 4173 uis) = 4o36 

Sw Se eS et D ae = Se 
44 en aE ; uS60 
W617 «4618 W625 4626 UBER 4705 

4 472807 4g49 ugs5 MBS G57 Bi 4930 

ee) isa cas) scigsscaagsciss) cages et Bh 
ee it B433 e572 (S33 497 
: Ssio 46Cs&511 «= ssiSSi2Ss«éSS13)s«éSSMSCsC«*dSBOS)=Ss«dSSGH SO sC«CSSEQ—éSS;7) 562 


ee ee ee 


roe i ee ee nm ae me mm en me a a ae 








eee — 
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s5e9StNDShuy Seb? SE7D G7, S77 StB tg tA kth kg? rue 
Bat 1 S62 86g 89 «B97 S57] ESg32993Egeg «= Egee «= Eg7n Sat 
e969 §900 ° sos §909 19 11 57 eg; So¢2 Fe—q e970 Ga71 E673 
053 BOB! 3 064 b0R0 Og Bing «=«bio?,—Ss«éid@ «Sida 1 
e120 bse | 61S) BIER Bled 176 «6177 GIS «bla bele Gels beeg bee? 
3  ¢-F  )  h 73 Ogee an +) ns} Oy FE 
B410B4i «SS SsGSSC«GSSsCéGSCMRSCGME?SsCd7RSOC#G7?~=s«éSC«d7SCt«éSSTL 
e517 618 «SeS13—SCdSWGSCESWSSCOSES )«=SOBSER OUEST 73 OgS73.S«éSS74—SOis«éSGSC*«#ESGG 
Be31 BSE be34 BeBe 678 ««bB79S«iBSSCtC«wBSC«G?SS«=SCGGRSC#G7Q7 
6830 be4s besa Gerd EB7e 699 695 Go6 6960 6971 E977 6980 6981 
B33 «£895 BS9E S502 032 707R«SC7073=S«s«0B2Ss«s70B?)Ss70S2 7097 
Siig, 7ize,—s7iz?s7i2@s713HS*i«<HSCME,SC*«SdSsC7NSGs71SG)=7185 7228) 7293 
ress Tere 7pm es 7a 7a 7a? es ee eS 
See SeEP ER ees & 
ca ee eS rte ae? e's Po 
gros S0gSC«S7z?—«‘«wSEOSC«ddT2S:Ss«‘sTHSC«*dSRLSC(ti‘DSSCi«‘«dTSCi«*SSCi«CGPSE. SCG? 
g7sp Su] eS 743 ««g749—=té«@EDSs«‘WkEL:SC*«#@G ED 
_ 7s «758757 G75BC«g759—«G780 
uy 5 FF * oOo. @ 3 830 92 93 Ss © 
118 «6119 s120,sdakC(<tstCtisisdC(<ti‘ia OSC 
EVEN 801 1020 «s72BBSs«738684=S«s«8OSCiCES «EGS «= :10980 
“TF ti a er ney ee ee, a, a a 
ue use (até? Ss (TC (GCC is? isTCiéi‘éISC(<té‘i SCS 
co0OCUSw] (itéiésSOC‘ék?SCSM#]C(isSC(<itiéis(iéiéiSSC«éidSSC(‘<éié‘iaz OCC (CY 
amy 0SCi«SS—i‘iPssC(‘é‘é SSC. «sOSC(‘itOS«SCiO?)Ss1Ds«iéiaaSsiékOBWeCOé«éadGGD).snkd> sad 
1138 «1143 su42)sni94)—s«1145,)Ss«d67?)=s«d1188~=Ss«di203S«dde0S~SsizoesSsC«édMO?)»=sdH09Ss«a419—'«—«aHSSsDG 
isug «= TRSC«dMHS:Cié‘éddSS «Ss«dMSECSC«dDHSSC«dECMHGSC*«é‘dSO=SsCSTSDS)«=CiS0e«SCisuo)=sis42—s«dsWm®SO«CSW@BeOC*«LS 
is73 1878 1590 15821583 178917611768 17701771180 1808 aie Bie 1819 
ies4 lease «Sse SC«dbESCié«dBESSC«édSSCsa 1932 «1994 «1935S s«1968)~=si970—Ss«da74~—S«s«*'7m~=SCL: 77 
s25 BR? BOMBS 2091 «2093. «2097S 2089.s«BidD,Ss«Bid?)Ss«2139s«s«iBisoSsCBise 283 
5554 Sag, si2C S4i3, Suis, Sugg «Ss 5u3g 3431S Bua Ss 549Q «S33 ssSens «= Bene 
SF S23 Su Se Se Se Se ses Shi c Ser, Sern Seog Sea? Seas 
573, 5735 SF4p 7 5764 57eq Sens 5804 5803 5891 5898 3890 3801 
5g34 3935 5953 5970 5972 «5979S Beal «= 9g2 «3008 |= 3009 Ss«3021 «= oe2«SsSo3e |S SoM 
Sou7 «Sg Soe See S009 300 2319 See hee ed EN 31sec 
3169 3187 3189 «3198 «= 3198 «3199 3ea2 43233 8 3249 3268 3270 3273 (3280 
ce i ly ee 
344s MBY Ss BGSSC‘iéD SOC G2s3939— E12 iG S18 1 3540 3su2 
co a eS 3638 «(3658 3ES9) 377? 7B 
Wis Ms el ee 2 3 S 37% 3720 3781 3798 3800 280s 3607 3808 
3628 382932 3084 3890 «3892S 389339133914 s«3933)s3934Sss HSH 
s7 353373877 99 $000 4040194094 Sage 4064 
4S 4032 409 4111 411 4121 4le 4124 4149 4150 4169 
i et 4 W235 «4237S s«4B3BSs«DESs«2GY «BBL 
22st eee ees 
ue53 (4560 Hele 4618 4 Neo? NEES 
W702 a ns) ah yess 6B? 
ua25«4930'—s«ggsd 499 WRB 934071 ugae 
SOse «sid? «=Ss«S104. Ss S419.—Ss«S2]Ss«Siz2SsSi43Ss«Si44)=SsSis@)=Ss«SiS8 Sa? 
E569 «6270s: BG bgp e310 8311 = e5e4 
piss Suny She Eig Shas Bua? B10 Sle Bly Seu? Sis 
elo | esa e238) Bau 7 86g B67 Be? 
E7%2 &768 5770 §771 §792 &863 S865 &870 872 5873 
Esee 987 qp2 «6969. «G71Ss«SG72—S—«C«N?Ss«wS]Ss«éOSSs«é 


